diff options
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index fa8d3c158..b0da2a94a 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -1034,11 +1034,12 @@ sub selectCountry { my ($in, $locale) = @_; my $country = $locale->{country}; - my @countries = lang::list_countries(exclude_non_installed => !$::isInstall); + my $country2locales = lang::countries_to_locales(exclude_non_installed => !$::isInstall); + my @countries = keys %$country2locales; my @best = grep { find { - lang::locale_to_main_locale($_) eq lang::locale_to_main_locale($locale->{lang}); - } lang::country_to_locales($_); + $_->{main} eq lang::locale_to_main_locale($locale->{lang}); + } @{$country2locales->{$_}}; } @countries; @best == 1 and @best = (); |