diff options
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]; } |