summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/lang.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index ae361062f..05b70d665 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -410,6 +410,7 @@ my %charset2kde_charset = (
#- for special cases not handled magically
my %lang2country = (
ar => 'eg',
+ be => 'by',
bs => 'bh',
cs => 'cz',
da => 'dk',
@@ -420,8 +421,7 @@ my %lang2country = (
ms => 'my',
nn => 'no',
sl => 'si',
- sp => 'yu',
- sr => 'yu',
+ sp => 'sr',
sv => 'se',
);
@@ -458,7 +458,9 @@ sub lang2country {
};
my $country;
- $country ||= $valid_country->($lang2country{$lang});
+ if ($country ||= $lang2country{$lang}) {
+ return $valid_country->($country) ? $country : 'C';
+ }
$country ||= $valid_country->(lc($1)) if $lang =~ /([A-Z]+)/;
$country ||= $valid_country->(lc($1)) if lang2LANGUAGE($lang) =~ /([A-Z]+)/;
$country ||= $valid_country->(substr($lang, 0, 2));