diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-21 16:59:18 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-21 16:59:18 +0000 |
| commit | 5a5ec8d18c04f2077622bce50e7024e0749e4da8 (patch) | |
| tree | 4449a44fc54d7f3e039045a476ecb14522ee5992 /perl-install/lang.pm | |
| parent | dd40621fa1311c9bce97902e2db57f8b15fab449 (diff) | |
| download | drakx-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.pm | 12 |
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"); } } |