summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-05-09 14:30:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-05-09 14:30:01 +0000
commitb6e99ec390c9143f3ab7b10c9e96a741c87ede86 (patch)
tree11dbba75a2854300e4d4c26d4ab66e2b624a792e /perl-install/partition_table.pm
parenteaab7cc1260043e18b6697756a19d7331055f589 (diff)
downloaddrakx-b6e99ec390c9143f3ab7b10c9e96a741c87ede86.tar
drakx-b6e99ec390c9143f3ab7b10c9e96a741c87ede86.tar.gz
drakx-b6e99ec390c9143f3ab7b10c9e96a741c87ede86.tar.bz2
drakx-b6e99ec390c9143f3ab7b10c9e96a741c87ede86.tar.xz
drakx-b6e99ec390c9143f3ab7b10c9e96a741c87ede86.zip
no_comment
Diffstat (limited to 'perl-install/partition_table.pm')
-rw-r--r--perl-install/partition_table.pm9
1 files changed, 3 insertions, 6 deletions
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;
}