diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2007-08-08 10:42:16 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2007-08-08 10:42:16 +0000 |
| commit | 56b573476e2ea63a509ab2f8ec0683397ae7c85e (patch) | |
| tree | 0b075efca3de395e4165a97c4b314f88a69e8672 /perl-install/fs | |
| parent | 27379879c56c139b61dd3312001b7aab4e8388de (diff) | |
| download | drakx-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.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 { |