diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-06 22:04:20 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-06 22:04:20 +0000 |
| commit | 3a598bd7c7b58aac70e31c3481c85264d2bcb2f8 (patch) | |
| tree | e923b78c1a1ac19251ee5ba99db996bf38a91b79 /perl-install/lang.pm | |
| parent | 173f1d689545127dfa129b28759867f326638bb3 (diff) | |
| download | drakx-3a598bd7c7b58aac70e31c3481c85264d2bcb2f8.tar drakx-3a598bd7c7b58aac70e31c3481c85264d2bcb2f8.tar.gz drakx-3a598bd7c7b58aac70e31c3481c85264d2bcb2f8.tar.bz2 drakx-3a598bd7c7b58aac70e31c3481c85264d2bcb2f8.tar.xz drakx-3a598bd7c7b58aac70e31c3481c85264d2bcb2f8.zip | |
no_comment
Diffstat (limited to 'perl-install/lang.pm')
| -rw-r--r-- | perl-install/lang.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index d7a5c1eb8..7de6917a2 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -109,10 +109,10 @@ sub text2lang { } sub set { - my $lang = shift; + my ($lang) = @_; if ($lang) { - $ENV{LC_ALL} = $lang; + $ENV{LC_ALL} = $lang; $ENV{LANG} = $languages{$lang}[2]; $ENV{LANGUAGES} = $languages{$lang}[3]; if (my $f = $languages{$lang}[1]) { load_font($f) } @@ -158,7 +158,7 @@ sub load_font { my $fontSet = "*-helvetica-medium-r-normal--14-*-*-*-*-iso8859-1"; if (my $c = $charsets{$charset}) { - log::l("loading " . $c . " font"); + log::l("loading $charset font"); $fontFile = $c->[0]; $fontSet = $c->[2]; } |