diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-08-28 21:16:32 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-08-28 21:16:32 +0000 |
commit | ff872004f6d5f202a6a8cd418bad3b2458d2ed66 (patch) | |
tree | 984a3ea576f9090b2aad069550b65a6595c04d4c /perl-install/lang.pm | |
parent | c047aee8e84b723f6910defab8b0de8063502490 (diff) | |
download | drakx-ff872004f6d5f202a6a8cd418bad3b2458d2ed66.tar drakx-ff872004f6d5f202a6a8cd418bad3b2458d2ed66.tar.gz drakx-ff872004f6d5f202a6a8cd418bad3b2458d2ed66.tar.bz2 drakx-ff872004f6d5f202a6a8cd418bad3b2458d2ed66.tar.xz drakx-ff872004f6d5f202a6a8cd418bad3b2458d2ed66.zip |
no_comment
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r-- | perl-install/lang.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index f5777151d..dfb0bf742 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -353,12 +353,19 @@ sub load_po($) { } +sub console_font_files { + map { -e $_ ? $_ : "$_.gz" } + (map { "/usr/lib/kbd/consolefonts/$_.psf" } uniq grep {$_} map { $_->[0] } values %charsets), + (map { -e $_ ? $_ : "$_.sfm" } map { "/usr/lib/kbd/consoletrans/$_" } uniq grep {$_} map { $_->[1] } values %charsets), + (map { -e $_ ? $_ : "$_.acm" } map { "/usr/lib/kbd/consoletrans/$_" } uniq grep {$_} map { $_->[2] } values %charsets), +} + sub load_console_font { my ($lang) = @_; my ($charset) = $languages{$lang} && $languages{$lang}[1] ; my ($f, $u, $m) = @{$charsets{$charset} || []}; - run_program::run('consolechars', + run_program::run('consolechars', '-v', ('-f', $f || 'lat0-sun16'), $u ? ('-u', $u) : (), $m ? ('-m', $m) : ()); |