diff options
| -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) = @_; |