From 59a71876a17e616e3706c80cddf3e74f34bbcf67 Mon Sep 17 00:00:00 2001 From: pad Date: Fri, 3 Sep 1999 13:44:30 +0000 Subject: pad stuff --- perl-install/lang.pm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'perl-install/lang.pm') 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 -- cgit v1.2.1