From 56b374075f45355184b2927cc2f24262dc7e6c21 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 24 Jul 1999 19:40:11 +0000
Subject: no_comment

---
 perl-install/lang.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

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