summaryrefslogtreecommitdiffstats
path: root/perl-install/fs
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-08-08 10:42:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-08-08 10:42:16 +0000
commit56b573476e2ea63a509ab2f8ec0683397ae7c85e (patch)
tree0b075efca3de395e4165a97c4b314f88a69e8672 /perl-install/fs
parent27379879c56c139b61dd3312001b7aab4e8388de (diff)
downloaddrakx-56b573476e2ea63a509ab2f8ec0683397ae7c85e.tar
drakx-56b573476e2ea63a509ab2f8ec0683397ae7c85e.tar.gz
drakx-56b573476e2ea63a509ab2f8ec0683397ae7c85e.tar.bz2
drakx-56b573476e2ea63a509ab2f8ec0683397ae7c85e.tar.xz
drakx-56b573476e2ea63a509ab2f8ec0683397ae7c85e.zip
- diskdrake:
o do not show partition types which have no associated filesystem for LVM LV (#32326) nb: we still would need to have pt_type per partition_table types
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 {