summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm6
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];
}