From 5efbf00cc1845b67ac7d4a03b9a75ecf18e50004 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 8 Apr 2015 08:13:53 -0400
Subject: don't guess a drive letter for recovery partitions

thus fixing mga15636
---
 perl-install/partition_table.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index be54d6c31..d376de621 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -137,7 +137,7 @@ sub assign_device_numbers {
 
     $i = ord 'C';
     $c->{device_windobe} = chr($i++) if $c;
-    $_->{device_windobe} = chr($i++) foreach grep { isFat_or_NTFS($_) } map { $_->{normal} } @{$hd->{extended}};
+    $_->{device_windobe} = chr($i++) foreach grep { isFat_or_NTFS($_) && !isRecovery($_) } map { $_->{normal} } @{$hd->{extended}};
     $_->{device_windobe} = chr($i++) foreach @others;
 }
 
-- 
cgit v1.2.1