summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-27 10:39:40 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-27 10:39:40 +0000
commit96df26b3c72f48ddcd5ac906520ae3ec80fe38f6 (patch)
tree07939c1eac533a74a642f15ee3cd204f11937160 /perl-install/lang.pm
parentf2b94cc98739fe62a8ecd5647ac89338d44571a4 (diff)
downloaddrakx-backup-do-not-use-96df26b3c72f48ddcd5ac906520ae3ec80fe38f6.tar
drakx-backup-do-not-use-96df26b3c72f48ddcd5ac906520ae3ec80fe38f6.tar.gz
drakx-backup-do-not-use-96df26b3c72f48ddcd5ac906520ae3ec80fe38f6.tar.bz2
drakx-backup-do-not-use-96df26b3c72f48ddcd5ac906520ae3ec80fe38f6.tar.xz
drakx-backup-do-not-use-96df26b3c72f48ddcd5ac906520ae3ec80fe38f6.zip
- %lang2country is the authority, so if the country given by %lang2country doesn't exist in KDE, return C
- fix be,sp,sr
Diffstat (limited to 'perl-install/lang.pm')
-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));