From 5a5ec8d18c04f2077622bce50e7024e0749e4da8 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 21 Jul 1999 16:59:18 +0000 Subject: *** empty log message *** --- perl-install/lang.pm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'perl-install/lang.pm') diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 54e75bcd8..3385248d6 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -8,6 +8,7 @@ use commands; use cpio; use log; +my @fields = my %languages = ( "en" => [ "English", undef, undef, "en_US" ], "fr" => [ "French", "lat0-sun16", "iso15", "fr_FR" ], @@ -60,14 +61,15 @@ sub write { &$f("LANG", $lang); &$f("LINGUAS", $lang); if (my $l = $languages{$lang}) { - &$f("LC_ALL", $l->{lc_all}); - &$f("SYSFONT", $l->{font}); - &$f("SYSFONTACM", $l->{map}); + &$f("LC_ALL", $l->[3]); + $l->[1] or return; + &$f("SYSFONT", $l->[1]); + &$f("SYSFONTACM", $l->[2]); my $p = "$prefix/usr/lib/kbd"; commands::cp("-f", - "$p/consolefonts/$l->{font}.psf.gz", - glob_("$p/consoletrans/$l->{map}*"), + "$p/consolefonts/$l->[1].psf.gz", + glob_("$p/consoletrans/$l->[2]*"), "$prefix/etc/sysconfig/console"); } } -- cgit v1.2.1