From b6e99ec390c9143f3ab7b10c9e96a741c87ede86 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 9 May 2000 14:30:01 +0000
Subject: no_comment

---
 perl-install/partition_table.pm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

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

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 3cef33e29..1dc606b8e 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -275,13 +275,10 @@ sub assign_device_numbers($) {
     #- first verify there's at least one primary dos partition, otherwise it
     #- means it is a secondary disk and all will be false :(
     my ($c, @others) = grep { isFat($_) } @{$hd->{primary}{normal}};
-    $c or return;
 
-    $i = ord 'D';
-    foreach (grep { isFat($_) } map { $_->{normal} } @{$hd->{extended}}) {
-	$_->{device_windobe} = chr($i++);
-    }
-    $c->{device_windobe} = 'C';
+    $i = ord 'C';
+    $c->{device_windobe} = chr($i++) if $c;
+    $_->{device_windobe} = chr($i++) foreach grep { isFat($_) } map { $_->{normal} } @{$hd->{extended}};
     $_->{device_windobe} = chr($i++) foreach @others;
 }
 
-- 
cgit v1.2.1