From 4d58b5524da3c370caeafbc43f1a43ee0a011851 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Sun, 30 Mar 2003 21:43:46 +0000 Subject: clean --- perl-install/lang.pm | 11 +++-------- 1 file 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) : ''; }; -- cgit v1.2.1 Mageia Graphical Package ManagerThierry Vignaud [tv]
aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-12-16 10:42:59 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-12-16 10:42:59 +0100
commitfce731adae2df3efb6347bd2ac533256a2de8a15 (patch)
treefe97d2892a8437822d71641137017968250ab093
parent90ac35f649bf5e3963574175c6b58cd1cda15b93 (diff)
downloadrpmdrake-fce731adae2df3efb6347bd2ac533256a2de8a15.tar
rpmdrake-fce731adae2df3efb6347bd2ac533256a2de8a15.tar.gz
rpmdrake-fce731adae2df3efb6347bd2ac533256a2de8a15.tar.bz2
rpmdrake-fce731adae2df3efb6347bd2ac533256a2de8a15.tar.xz
rpmdrake-fce731adae2df3efb6347bd2ac533256a2de8a15.zip
fix my email