From 0adf9412b786342346a9df9fd262765d6b97d38f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sat, 28 Mar 2015 02:42:02 +0100
Subject: try to detect recovery partitions on GPT

---
 perl-install/partition_table/gpt.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install/partition_table/gpt.pm')

diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm
index 11cbe414d..3f0bc3f13 100644
--- a/perl-install/partition_table/gpt.pm
+++ b/perl-install/partition_table/gpt.pm
@@ -117,6 +117,8 @@ sub read_one {
 	    $_->{pt_type} = 0x8e;
         } elsif (c::get_partition_flag($hd->{file}, $_->{part_number}, 'RAID')) {
 	    $_->{pt_type} = 0xfd;
+        } elsif (c::get_partition_flag($hd->{file}, $_->{part_number}, 'recovery')) {
+	    $_->{pt_type} = 0x12;
         }
         $_->{fs_type} = 'swap' if $_->{fs_type} eq 'linux-swap(v1)';
         $_->{fs_type} = 'ntfs-3g' if $_->{fs_type} eq 'ntfs';
-- 
cgit v1.2.1