From deddef1f4746139ed4ef994d8f053bf39d4d6384 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 17 Jul 1999 16:45:33 +0000
Subject: *** empty log message ***

---
 perl-install/lang.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index a14c7c3ca..c7d8ed25e 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -24,7 +24,14 @@ my %languages = (
 
 1;
 
-sub list { keys %languages }
+sub list { map { $_->[0] } values %languages }
+sub text2lang {
+    my ($t) = @_;
+    while (my ($k, $v) = each %languages) {
+	$v->[0] eq $t and return $k;
+    }
+    die "unknown language $t";
+}
 
 sub set {
     my $lang = shift;
-- 
cgit v1.2.1