summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-03 13:44:30 +0000
committerpad <pad@mandriva.com>1999-09-03 13:44:30 +0000
commit59a71876a17e616e3706c80cddf3e74f34bbcf67 (patch)
treee52f9979a37b9e3256a5f764d8c9f4cc85b9464f /perl-install/lang.pm
parent874f08a1316d73d6f09f0ca2df235dac495a387b (diff)
downloaddrakx-backup-do-not-use-59a71876a17e616e3706c80cddf3e74f34bbcf67.tar
drakx-backup-do-not-use-59a71876a17e616e3706c80cddf3e74f34bbcf67.tar.gz
drakx-backup-do-not-use-59a71876a17e616e3706c80cddf3e74f34bbcf67.tar.bz2
drakx-backup-do-not-use-59a71876a17e616e3706c80cddf3e74f34bbcf67.tar.xz
drakx-backup-do-not-use-59a71876a17e616e3706c80cddf3e74f34bbcf67.zip
pad stuff
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm9
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index fca3d223c..1fd767a02 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -10,7 +10,6 @@ use log;
# key (to be used in $LC_ALL), [0] = english name, [1] = charset encoding,
# [2] = value for $LANG, [3] = value for LANGUAGE (a list of possible
# languages, carefully choosen)
-my @fields =
my %languages = (
'en' => [ 'English', undef, 'en', 'en_US' ],
'fr_FR' => [ 'French (France)', 'iso-8859-1', 'fr', 'fr_FR' ],
@@ -105,9 +104,9 @@ sub set {
my $lang = shift;
if ($lang) {
- $ENV{LC_ALL} = $lang;
- $ENV{LANG} = $languages{$lang}[2];
- $ENV{LANGUAGES} = $languages{$lang}[3];
+ $ENV{LC_ALL} = $lang;
+ $ENV{LANG} = $languages{$lang}[2];
+ $ENV{LANGUAGES} = $languages{$lang}[3];
if (my $f = $languages{$lang}[1]) { load_font($f) }
} else {
# stick with the default (English) */
@@ -153,7 +152,7 @@ sub load_font {
if (my $c = $charsets{$charset}) {
log::l("loading " . $c . " font");
$fontFile = $c->[0];
- $fontSet = $c->[2];
+ $fontSet = $c->[2];
}
# text mode font