diff options
Diffstat (limited to 'perl-install/fs')
| -rw-r--r-- | perl-install/fs/type.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm index c0f89266d..610802ac8 100644 --- a/perl-install/fs/type.pm +++ b/perl-install/fs/type.pm @@ -41,7 +41,7 @@ if_(arch() =~ /ppc/, ), ], - less_important => [ + non_fs_type => [ 0x8e => '', 'Linux Logical Volume Manager', 0xfd => '', 'Linux RAID', ], @@ -181,11 +181,12 @@ if_(arch() !~ /ppc/, sub type_names { my ($expert, $o_hd) = @_; my @l = @{$type_names{important}}; - push @l, @{$type_names{less_important}}, sort @{$type_names{other}} if $expert; + push @l, @{$type_names{non_fs_type}}, sort @{$type_names{other}} if $expert; if ($o_hd && !$o_hd->use_pt_type) { warn "$_ => $type_name2fs_type{$_}\n" foreach @l; @l = grep { $type_name2fs_type{$_} } @l; - uniq_ { $type_name2fs_type{$_[0]} } @l; + @l = uniq_ { $type_name2fs_type{$_[0]} } @l; + (@l, @{$type_names{non_fs_type}}); } else { @l; } |