From 653f7eb23e745c2eddd84568c0954f80ce487f80 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 1 Mar 2001 17:03:42 +0000 Subject: (getxim): patch for Alex Du for localization tool --- perl-install/lang.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'perl-install') 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) = @_; -- cgit v1.2.1