summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-10-15 12:35:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-10-15 12:35:01 +0000
commit8ad913dde1837343c88867fc5d83c851e815e653 (patch)
tree67d907b10aa7377fafbd4abf8337ca6c0b0aab80 /perl-install/any.pm
parenta7dc7faf030fee564aa3c03f730923f4366247a2 (diff)
downloaddrakx-8ad913dde1837343c88867fc5d83c851e815e653.tar
drakx-8ad913dde1837343c88867fc5d83c851e815e653.tar.gz
drakx-8ad913dde1837343c88867fc5d83c851e815e653.tar.bz2
drakx-8ad913dde1837343c88867fc5d83c851e815e653.tar.xz
drakx-8ad913dde1837343c88867fc5d83c851e815e653.zip
simplify (for next commit)
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 94be8c45f..3bc6d879a 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1036,8 +1036,7 @@ sub selectCountry {
my $country = $locale->{country};
my @countries = lang::list_countries(exclude_non_installed => !$::isInstall);
my @best = grep {
- my $h = lang::analyse_locale_name(lang::c2locale($_));
- $h->{main} eq lang::locale_to_main_locale($locale->{lang});
+ lang::locale_to_main_locale(lang::c2locale($_)) eq lang::locale_to_main_locale($locale->{lang});
} @countries;
@best == 1 and @best = ();