summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2000-06-21 14:46:54 +0000
committerPablo Saratxaga <pablo@mandriva.com>2000-06-21 14:46:54 +0000
commit90545edd3b0599b389168b024dd08fd8fed68000 (patch)
tree2c8c4dfd1646a013034c508fa1a71b63b4003b56 /perl-install/lang.pm
parent8842f7f1d11ec841e49cf6ee7c6c8c8e3c6d60ca (diff)
downloaddrakx-backup-do-not-use-90545edd3b0599b389168b024dd08fd8fed68000.tar
drakx-backup-do-not-use-90545edd3b0599b389168b024dd08fd8fed68000.tar.gz
drakx-backup-do-not-use-90545edd3b0599b389168b024dd08fd8fed68000.tar.bz2
drakx-backup-do-not-use-90545edd3b0599b389168b024dd08fd8fed68000.tar.xz
drakx-backup-do-not-use-90545edd3b0599b389168b024dd08fd8fed68000.zip
I fixed a bug with console font info not being written for latin2
(and maybe others)
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm41
1 files changed, 30 insertions, 11 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 601e6c463..9b6639dcb 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -266,18 +266,37 @@ sub write {
add2hash $h, { LANG => $l->[2], LANGUAGE => $l->[3], RPM_INSTALL_LANG => $l->[3] };
my $c = $charsets{$l->[1] || ''};
- if ($c && $c->[0] && $c->[1]) {
- add2hash $h, { SYSFONT => $c->[0], UNIMAP => $c->[1], SYSFONTACM => $c->[2] };
-
+ if ($c) {
my $p = "$prefix/usr/lib/kbd";
- eval {
- commands::cp("-f",
- "$p/consolefonts/$c->[0].psf.gz",
- glob_("$p/consoletrans/$c->[1]*"),
- glob_("$p/consoletrans/$c->[2]*"),
- "$prefix/etc/sysconfig/console");
- };
- $@ and log::l("missing console $c->[0], $c->[1], $c->[2]");
+ add2hash $h, { CHARSET => $c };
+ if ($c->[0]) {
+ add2hash $h, { SYSFONT => $c->[0] };
+ eval {
+ commands::cp("-f",
+ "$p/consolefonts/$c->[0].psf.gz",
+ "$prefix/etc/sysconfig/console");
+ };
+ $@ and log::l("missing console font $c->[0]");
+ }
+ if ($c->[1]) {
+ add2hash $h, { UNIMAP => $c->[1] };
+ eval {
+ commands::cp("-f",
+ glob_("$p/consoletrans/$c->[1]*"),
+ "$prefix/etc/sysconfig/console");
+ };
+ $@ and log::l("missing console unimap file $c->[1]");
+ }
+ if ($c->[2]) {
+ add2hash $h, { SYSFONTACM => $c->[2] };
+ eval {
+ commands::cp("-f",
+ glob_("$p/consoletrans/$c->[2]*"),
+ "$prefix/etc/sysconfig/console");
+ };
+ $@ and log::l("missing console acm file $c->[2]");
+ }
+
}
add2hash $h, $xim{$lang};
}