summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-06 22:04:20 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-06 22:04:20 +0000
commit3a598bd7c7b58aac70e31c3481c85264d2bcb2f8 (patch)
treee923b78c1a1ac19251ee5ba99db996bf38a91b79 /perl-install/lang.pm
parent173f1d689545127dfa129b28759867f326638bb3 (diff)
downloaddrakx-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.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];
}