summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-21 16:59:18 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-21 16:59:18 +0000
commit5a5ec8d18c04f2077622bce50e7024e0749e4da8 (patch)
tree4449a44fc54d7f3e039045a476ecb14522ee5992 /perl-install/lang.pm
parentdd40621fa1311c9bce97902e2db57f8b15fab449 (diff)
downloaddrakx-5a5ec8d18c04f2077622bce50e7024e0749e4da8.tar
drakx-5a5ec8d18c04f2077622bce50e7024e0749e4da8.tar.gz
drakx-5a5ec8d18c04f2077622bce50e7024e0749e4da8.tar.bz2
drakx-5a5ec8d18c04f2077622bce50e7024e0749e4da8.tar.xz
drakx-5a5ec8d18c04f2077622bce50e7024e0749e4da8.zip
*** empty log message ***
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm12
1 files changed, 7 insertions, 5 deletions
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");
}
}