diff options
Diffstat (limited to 'perl-install/fs')
| -rw-r--r-- | perl-install/fs/type.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm index cce7cdf23..79a89e819 100644 --- a/perl-install/fs/type.pm +++ b/perl-install/fs/type.pm @@ -179,10 +179,16 @@ if_(arch() !~ /ppc/, sub type_names { - my ($expert) = @_; + my ($expert, $o_hd) = @_; my @l = @{$type_names{important}}; push @l, @{$type_names{less_important}}, sort @{$type_names{other}} if $expert; - @l; + 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; + } else { + @l; + } } sub type_name2subpart { |