diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-03-01 17:03:42 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-03-01 17:03:42 +0000 |
| commit | 653f7eb23e745c2eddd84568c0954f80ce487f80 (patch) | |
| tree | 31d313bfec3584ce4b072b03e767ac1ab8ef4525 | |
| parent | 6170c804f2d7abfdc6df1d1916b3d6215c4ea957 (diff) | |
| download | drakx-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
| -rw-r--r-- | perl-install/lang.pm | 7 |
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) = @_; |