From 85fbbce70f17538cb4a9c5a1ad1a212f2e96487c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 8 Nov 2007 15:53:01 +0000 Subject: further cleanup --- perl-install/lang.pm | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) (limited to 'perl-install/lang.pm') diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 9b4efa365..29fba2f23 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -460,13 +460,18 @@ our @locales = qw(aa_DJ aa_ER aa_ER@saaho aa_ET af_ZA am_ET an_ES ar_AE ar_BH ar sub standard_locale { my ($lang, $country, $prefer_lang) = @_; - member("${lang}_${country}", @locales) and return "${lang}_${country}"; - $prefer_lang && member($lang, @locales) and return $lang; - my $main_locale = locale_to_main_locale($lang); - if ($main_locale ne $lang) { - standard_locale($main_locale, $country, $prefer_lang); + + if (member("${lang}_${country}", @locales)) { + "${lang}_${country}"; + } elsif ($prefer_lang && member($lang, @locales)) { + $lang; } else { - ''; + my $main_locale = locale_to_main_locale($lang); + if ($main_locale ne $lang) { + standard_locale($main_locale, $country, $prefer_lang); + } else { + ''; + } } } -- cgit v1.2.1