diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-06-07 22:22:08 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-06-07 22:22:08 +0000 |
| commit | ed721d84609cb863c236c9e7bd087aa6a362df3b (patch) | |
| tree | 9b8be32ee086e82e574ecf502f16dc6c3483504b /perl-install/lang.pm | |
| parent | 03396877116a0728d02b4f48861121e73e38a368 (diff) | |
| download | drakx-ed721d84609cb863c236c9e7bd087aa6a362df3b.tar drakx-ed721d84609cb863c236c9e7bd087aa6a362df3b.tar.gz drakx-ed721d84609cb863c236c9e7bd087aa6a362df3b.tar.bz2 drakx-ed721d84609cb863c236c9e7bd087aa6a362df3b.tar.xz drakx-ed721d84609cb863c236c9e7bd087aa6a362df3b.zip | |
no_comment
Diffstat (limited to 'perl-install/lang.pm')
| -rw-r--r-- | perl-install/lang.pm | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 0638f2840..0350cd680 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -337,17 +337,12 @@ sub load_po($) { sub load_console_font { my ($lang) = @_; my ($charset) = $languages{$lang}[1] ; - my $f = "-f lat0-sun16"; - - if (my $c = $charsets{$charset}) { - if ($c->[0]) { $f = "-f " . $c->[0] ; } - if ($c->[1]) { $f = $f . " -u " . $c->[1] ; } - if ($c->[2]) { $f = $f . " -m " . $c->[2] ; } - } - - log::l("loading console font: consolechars $f"); - system("consolechars $f"); + my ($f, $u, $m) = @{$charsets{$charset} || []}; + run_program::run('consolechars', + ('-f', $f || 'lat0-sun16'), + $u ? ('-u', $u) : (), + $m ? ('-m', $m) : ()); } #-sub load_font { |