summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-07-08 05:39:02 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-07-08 05:39:02 +0000
commit20b48a1a122d4f3ede0fa76dc06b66aa81fb87aa (patch)
tree58675d5566eb3fc7268ee40e33318293750204f9 /perl-install/any.pm
parent44b76a6df5441d9ffc9b139f2be6297fce73b8da (diff)
downloaddrakx-20b48a1a122d4f3ede0fa76dc06b66aa81fb87aa.tar
drakx-20b48a1a122d4f3ede0fa76dc06b66aa81fb87aa.tar.gz
drakx-20b48a1a122d4f3ede0fa76dc06b66aa81fb87aa.tar.bz2
drakx-20b48a1a122d4f3ede0fa76dc06b66aa81fb87aa.tar.xz
drakx-20b48a1a122d4f3ede0fa76dc06b66aa81fb87aa.zip
fix typo
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm2
1 files changed, 1 insertions, 1 deletions
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});