diff options
| author | pad <pad@mandriva.com> | 1999-09-03 13:44:30 +0000 |
|---|---|---|
| committer | pad <pad@mandriva.com> | 1999-09-03 13:44:30 +0000 |
| commit | 59a71876a17e616e3706c80cddf3e74f34bbcf67 (patch) | |
| tree | e52f9979a37b9e3256a5f764d8c9f4cc85b9464f /perl-install/lang.pm | |
| parent | 874f08a1316d73d6f09f0ca2df235dac495a387b (diff) | |
| download | drakx-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.pm | 9 |
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 |