From 653f7eb23e745c2eddd84568c0954f80ce487f80 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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/lang.pm')

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