From e7beff20465926e54a6ecc1ee4fee2fc21b8e220 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 20 Feb 2003 12:27:28 +0000 Subject: set {device_windobe} for 0x107 *and* 0x7 (since 0x107 is not set correctly at this stage) (otherwise this causes mount points /mnt/win_ /mnt/win_1...) --- perl-install/partition_table.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'perl-install/partition_table.pm') diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index 1bb76bf4c..5279552f9 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -374,11 +374,15 @@ 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_or_NTFS($_) } @{$hd->{primary}{normal}}; + #- + #- isFat_or_NTFS isn't true for 0x7 partitions, only for 0x107. + #- alas 0x107 is not set correctly at this stage + #- solution: don't bother with 0x7 vs 0x107 here + my ($c, @others) = grep { isFat_or_NTFS($_) || $_->{type} == 0x7 } @{$hd->{primary}{normal}}; $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($_) || $_->{type} == 0x7 } map { $_->{normal} } @{$hd->{extended}}; $_->{device_windobe} = chr($i++) foreach @others; } -- cgit v1.2.1