diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-24 19:40:11 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-24 19:40:11 +0000 |
| commit | 56b374075f45355184b2927cc2f24262dc7e6c21 (patch) | |
| tree | 0131cb0b14564bedd750bae2dce222b46b6deecd /perl-install/lang.pm | |
| parent | 5a632fe532f355a2583970fefb2ed8ceec6c9460 (diff) | |
| download | drakx-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.pm | 2 |
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"; } |