summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
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});