From 20b48a1a122d4f3ede0fa76dc06b66aa81fb87aa Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 8 Jul 2004 05:39:02 +0000
Subject: fix typo

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

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 31166b1a9..7107fa24b 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -679,7 +679,7 @@ sub selectCountry {
 
     my $country = $locale->{country};
     my @countries = lang::list_countries(exclude_non_installed => !$::isInstall);
-    my @best = uniq grep {
+    my @best = uniq map {
 	my $h = lang::analyse_locale_name($_);
 	if_($h->{main} eq lang::locale_to_main_locale($locale->{lang}) && $h->{country},
 	    $h->{country});
-- 
cgit v1.2.1