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