From 2a9723df4ab80e9904c0f21f36c77c24dc94ffbe Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 23 Mar 2012 19:51:13 +0000
Subject: (type_names) perl_checker cleanup

---
 perl-install/fs/type.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
cgit v1.2.1