summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-01 17:03:42 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-01 17:03:42 +0000
commit653f7eb23e745c2eddd84568c0954f80ce487f80 (patch)
tree31d313bfec3584ce4b072b03e767ac1ab8ef4525 /perl-install
parent6170c804f2d7abfdc6df1d1916b3d6215c4ea957 (diff)
downloaddrakx-653f7eb23e745c2eddd84568c0954f80ce487f80.tar
drakx-653f7eb23e745c2eddd84568c0954f80ce487f80.tar.gz
drakx-653f7eb23e745c2eddd84568c0954f80ce487f80.tar.bz2
drakx-653f7eb23e745c2eddd84568c0954f80ce487f80.tar.xz
drakx-653f7eb23e745c2eddd84568c0954f80ce487f80.zip
(getxim): patch for Alex Du for localization tool
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/lang.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 20d3232d0..e6cd1220b 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -268,8 +268,11 @@ my %charsets = (
#-######################################################################################
sub list { keys %languages }
-sub lang2text { $languages{$_[0]} && $languages{$_[0]}[0] }
-sub lang2charset { $languages{$_[0]} && $languages{$_[0]}[1] }
+sub lang2text { $languages{$_[0]} && $languages{$_[0]}[0] }
+sub lang2charset { $languages{$_[0]} && $languages{$_[0]}[1] }
+sub lang2LANG { $languages{$_[0]} && $languages{$_[0]}[2] }
+sub lang2LANGUAGE { $languages{$_[0]} && $languages{$_[0]}[3] }
+sub getxim { $xim{$_[0]} }
sub set {
my ($lang) = @_;