diff options
Diffstat (limited to 'perl-install/partition_table.pm')
| -rw-r--r-- | perl-install/partition_table.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index 50abce97c..c3e0da79e 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -148,6 +148,9 @@ my %type2fs = ( 0x0b => 'vfat', 0x0c => 'vfat', 0x0e => 'vfat', + 0x1b => 'vfat', + 0x1c => 'vfat', + 0x1e => 'vfat', 0x82 => 'swap', 0x83 => 'ext2', nfs => 'nfs', #- hack @@ -173,7 +176,7 @@ sub isRAID($) { $_[0]{type} == 0xfd } sub isSwap($) { $type2fs{$_[0]{type}} eq 'swap' } sub isExt2($) { $type2fs{$_[0]{type}} eq 'ext2' } sub isDos($) { $ {{ 1=>1, 4=>1, 6=>1 }}{$_[0]{type}} } -sub isWin($) { $ {{ 0xb=>1, 0xc=>1, 0xe=>1 }}{$_[0]{type}} } +sub isWin($) { $ {{ 0xb=>1, 0xc=>1, 0xe=>1, 0x1b=>1, 0x1c=>1, 0x1e=>1 }}{$_[0]{type}} } sub isFat($) { isDos($_[0]) || isWin($_[0]) } sub isNfs($) { $_[0]{type} eq 'nfs' } #- small hack sub isSupermount($) { $_[0]{type} eq 'supermount' } |