From 11b0b944ddde76b4982fa2f9e2118dcee5035f80 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 17 Aug 2000 00:39:01 +0000
Subject: no_comment

---
 perl-install/lang.pm | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

(limited to 'perl-install/lang.pm')

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) = @_;
-- 
cgit v1.2.1