summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2003-05-06 14:01:10 +0000
committerPablo Saratxaga <pablo@mandriva.com>2003-05-06 14:01:10 +0000
commitea1d5f4d5facab0d462ffe221e6bf2f9059a1943 (patch)
tree64775628b99e7ef2c65ab5e8a7443605df757696 /perl-install/lang.pm
parentd46d3088c666cf69597bdb2000cbee7c6f0f0557 (diff)
downloaddrakx-backup-do-not-use-ea1d5f4d5facab0d462ffe221e6bf2f9059a1943.tar
drakx-backup-do-not-use-ea1d5f4d5facab0d462ffe221e6bf2f9059a1943.tar.gz
drakx-backup-do-not-use-ea1d5f4d5facab0d462ffe221e6bf2f9059a1943.tar.bz2
drakx-backup-do-not-use-ea1d5f4d5facab0d462ffe221e6bf2f9059a1943.tar.xz
drakx-backup-do-not-use-ea1d5f4d5facab0d462ffe221e6bf2f9059a1943.zip
Renamed Serbian po files to follow standard (sr -> cyrillic, sr@Latn -> latin).
'sh' is used internally by DrakX for identifier by DrakX; and 'sh_YU' used as locale name, for latin Serbian, to avoid use of '@' character which may be problematic in some cases.
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 04f1d9c69..91aebee01 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -84,11 +84,11 @@ my %langs = (
'pt_BR' => [ 'Portuguese Brazil', 'Portugues do Brasil', 'pt_BR', ' 5', 'iso-8859-1', 'pt_BR:pt_PT:pt' ],
'ro' => [ 'Romanian', 'Romana', 'ro_RO', '1 ', 'iso-8859-2' ],
'ru' => [ 'Russian', 'Russkij', 'ru_RU', '12 ', 'koi8-r' ],
+'sh' => [ 'Serbian Latin', 'Srpska', 'sh_YU', '1 ', 'iso-8859-2', 'sh:sr@Latn' ],
'sk' => [ 'Slovak', 'Slovencina', 'sk_SK', '1 ', 'iso-8859-2' ],
'sl' => [ 'Slovenian', 'Slovenscina', 'sl_SI', '1 ', 'iso-8859-2' ],
-'sp' => [ 'Serbian Cyrillic', 'Srpska', 'sp_YU', '1 ', 'iso-8859-5', 'sp:sr' ],
'sq' => [ 'Albanian', 'Shqip', 'sq_AL', '1 ', 'iso-8859-1' ],
-'sr' => [ 'Serbian Latin', 'Srpska', 'sr_YU', '1 ', 'iso-8859-2' ],
+'sr' => [ 'Serbian Cyrillic', 'Srpska', 'sr_YU', '1 ', 'iso-8859-5', 'sp:sr' ],
'sv' => [ 'Swedish', 'Svenska', 'sv_SE', '1 ', 'iso-8859-1' ],
'ta' => [ 'Tamil', 'ZZ Tamil', 'ta_IN', ' 2 ', 'utf_ta' ],
'tg' => [ 'Tajik', 'Tojiki', 'tg_TJ', ' 2 ', 'utf_cyr2' ],
@@ -608,7 +608,7 @@ sub get_kde_lang {
my $valid_lang = sub {
my ($lang) = @_;
#- fast & dirty solution to ensure bad entries do not happen
- my %fixlangs = (en => 'C', en_US => 'C', no => 'nb', sp => 'sr',
+ my %fixlangs = (en => 'C', en_US => 'C', no => 'nb', sh => '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 :