diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-01-01 17:09:26 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-01-01 17:09:26 +0000 |
commit | d004436dc848800c9d65b90e39c39836c4d44cdf (patch) | |
tree | b37bdcac9dad762a2b692076522785a83533c5f6 /perl-install/lang.pm | |
parent | 1dc94110fc837dbe6cf06806f60c207ab1b64e83 (diff) | |
download | drakx-d004436dc848800c9d65b90e39c39836c4d44cdf.tar drakx-d004436dc848800c9d65b90e39c39836c4d44cdf.tar.gz drakx-d004436dc848800c9d65b90e39c39836c4d44cdf.tar.bz2 drakx-d004436dc848800c9d65b90e39c39836c4d44cdf.tar.xz drakx-d004436dc848800c9d65b90e39c39836c4d44cdf.zip |
no_comment
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r-- | perl-install/lang.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 2e3a30b28..7bbcde393 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -1,4 +1,4 @@ - package lang; +package lang; use diagnostics; use strict; @@ -237,11 +237,14 @@ sub write { add2hash $h, { SYSFONT => $c->[0], UNIMAP => $c->[1], SYSFONTACM => $c->[2] }; my $p = "$prefix/usr/lib/kbd"; - commands::cp("-f", + 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, $xim{$lang}; } |