summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-24 19:40:11 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-24 19:40:11 +0000
commit56b374075f45355184b2927cc2f24262dc7e6c21 (patch)
tree0131cb0b14564bedd750bae2dce222b46b6deecd /perl-install/lang.pm
parent5a632fe532f355a2583970fefb2ed8ceec6c9460 (diff)
downloaddrakx-56b374075f45355184b2927cc2f24262dc7e6c21.tar
drakx-56b374075f45355184b2927cc2f24262dc7e6c21.tar.gz
drakx-56b374075f45355184b2927cc2f24262dc7e6c21.tar.bz2
drakx-56b374075f45355184b2927cc2f24262dc7e6c21.tar.xz
drakx-56b374075f45355184b2927cc2f24262dc7e6c21.zip
no_comment
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm2
1 files changed, 1 insertions, 1 deletions
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";
}