From 034f62def330bcfae17a40c0eac45fb306e2a01d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 3 Apr 2015 18:08:13 +0200
Subject: really try to detect recovery partitions on GPT

fix "set_partition_flag: unknown type: recovery" (mga#15621)
---
 perl-install/NEWS                   | 3 +++
 perl-install/install/NEWS           | 3 +++
 perl-install/partition_table/gpt.pm | 2 +-
 3 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 8e3d2c029..b99fcd634 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- diskdrake:
+  o really try to detect recovery partitions on GPT
+
 Version 16.75 - 30 March 2015
 
 - diskdrake:
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index e37662add..d228cd315 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- partitionning:
+  o really try to detect recovery partitions on GPT
+
 Version 16.75 - 30 March 2015
 
 - partitionning:
diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm
index 3f0bc3f13..1a284c214 100644
--- a/perl-install/partition_table/gpt.pm
+++ b/perl-install/partition_table/gpt.pm
@@ -117,7 +117,7 @@ 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')) {
+        } elsif (c::is_recovery_partition($hd->{file}, $_->{part_number})) {
 	    $_->{pt_type} = 0x12;
         }
         $_->{fs_type} = 'swap' if $_->{fs_type} eq 'linux-swap(v1)';
-- 
cgit v1.2.1