diff options
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 { |