summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-06-07 22:22:08 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-06-07 22:22:08 +0000
commited721d84609cb863c236c9e7bd087aa6a362df3b (patch)
tree9b8be32ee086e82e574ecf502f16dc6c3483504b /perl-install/lang.pm
parent03396877116a0728d02b4f48861121e73e38a368 (diff)
downloaddrakx-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.pm15
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 {