summaryrefslogtreecommitdiffstats
path: root/perl-install/fs
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/fs')
-rw-r--r--perl-install/fs/type.pm10
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 {