diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-08-17 00:39:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-08-17 00:39:01 +0000 |
| commit | 11b0b944ddde76b4982fa2f9e2118dcee5035f80 (patch) | |
| tree | a873f848dcf1eda96b89a0319f8923e10bbc5b4a /perl-install/lang.pm | |
| parent | d77799bb5ce63ecac4de72e1b27f56d7d22fd048 (diff) | |
| download | drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.tar drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.tar.gz drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.tar.bz2 drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.tar.xz drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.zip | |
no_comment
Diffstat (limited to 'perl-install/lang.pm')
| -rw-r--r-- | perl-install/lang.pm | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index e12fc789a..490cdee57 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -211,16 +211,7 @@ my %charsets = ( sub list { sort { $a cmp $b } keys %languages } sub lang2text { $languages{$_[0]} && $languages{$_[0]}[0] } -sub text2lang { - my ($t) = @_; - foreach (keys %languages) { - lc($languages{$_}[0]) eq lc($t) and return $_; - } - die "unknown language $t"; -} - -sub lang2charset { - $languages{$_[0]} } +sub lang2charset { $languages{$_[0]} && $languages{$_[0]}[1] } sub set { my ($lang) = @_; |