summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-03-30 21:43:46 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-03-30 21:43:46 +0000
commit4d58b5524da3c370caeafbc43f1a43ee0a011851 (patch)
treeae2c20bd9bc177c899ad2973286c10fc50fec47e /perl-install/lang.pm
parent95976bdde99d59e98fa20f72fc819aac91de7ef0 (diff)
downloaddrakx-4d58b5524da3c370caeafbc43f1a43ee0a011851.tar
drakx-4d58b5524da3c370caeafbc43f1a43ee0a011851.tar.gz
drakx-4d58b5524da3c370caeafbc43f1a43ee0a011851.tar.bz2
drakx-4d58b5524da3c370caeafbc43f1a43ee0a011851.tar.xz
drakx-4d58b5524da3c370caeafbc43f1a43ee0a011851.zip
clean
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm11
1 files changed, 3 insertions, 8 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index ff3e25c32..a24adb85a 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -609,14 +609,9 @@ sub get_kde_lang {
my $valid_lang = sub {
my ($lang) = @_;
#- fast & dirty solution to ensure bad entries do not happen
- $lang eq 'en' ? 'C' :
- $lang eq 'en_US' ? 'C' :
- $lang eq 'no' ? 'nb' :
- $lang eq 'sp' ? 'sr' :
- $lang eq 'zh_CN' ? 'zh_CN.GB2312' :
- $lang eq 'zh_SG' ? 'zh_CN.GB2312' :
- $lang eq 'zh_TW' ? 'zh_TW.Big5' :
- $lang eq 'zh_HK' ? 'zh_TW.Big5' :
+ my %fixlangs = (en => 'C', en_US => 'C', no => 'nb', sp => 'sr',
+ zh_CN => 'zh_CN.GB2312', zh_SG => 'zh_CN.GB2312', zh_TW => 'zh_TW.Big5', zh_HK => 'zh_TW.Big5');
+ exists $fixlangs{$lang} ? $fixlangs{$lang} :
exists $valid_kde_langs{$lang} ? $lang :
exists $valid_kde_langs{substr($lang, 0, 2)} ? substr($lang, 0, 2) : '';
};