summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-23 19:51:13 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-23 19:51:13 +0000
commit2a9723df4ab80e9904c0f21f36c77c24dc94ffbe (patch)
treeb7b4168c1074e667cef6ac0a2f5ea058db108227 /perl-install
parent4cbd03dc8c88b5b42328dc0bf98f9b35d0e56bd5 (diff)
downloaddrakx-2a9723df4ab80e9904c0f21f36c77c24dc94ffbe.tar
drakx-2a9723df4ab80e9904c0f21f36c77c24dc94ffbe.tar.gz
drakx-2a9723df4ab80e9904c0f21f36c77c24dc94ffbe.tar.bz2
drakx-2a9723df4ab80e9904c0f21f36c77c24dc94ffbe.tar.xz
drakx-2a9723df4ab80e9904c0f21f36c77c24dc94ffbe.zip
(type_names) perl_checker cleanup
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs/type.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm
index 74c4a5a0b..18c4f56dd 100644
--- a/perl-install/fs/type.pm
+++ b/perl-install/fs/type.pm
@@ -189,7 +189,7 @@ sub type_names {
push @l, sort @{$type_names{other}} if $expert;
if ($o_hd && !$o_hd->use_pt_type) {
@l = grep { $type_name2fs_type{$_} } @l;
- @l = uniq_ { $type_name2fs_type{$_[0]} } @l;
+ @l = uniq_ { $type_name2fs_type{$_} } @l;
(@l, @{$type_names{non_fs_type}});
} else {
@l;