summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-18 21:05:17 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-18 21:05:17 +0000
commitdd40621fa1311c9bce97902e2db57f8b15fab449 (patch)
tree021c7c75ccde203bbc43ee77a66f9585d9157c61 /perl-install/lang.pm
parent61e87a9fb56f97ae843557511ba3609f9849cc2e (diff)
downloaddrakx-backup-do-not-use-dd40621fa1311c9bce97902e2db57f8b15fab449.tar
drakx-backup-do-not-use-dd40621fa1311c9bce97902e2db57f8b15fab449.tar.gz
drakx-backup-do-not-use-dd40621fa1311c9bce97902e2db57f8b15fab449.tar.bz2
drakx-backup-do-not-use-dd40621fa1311c9bce97902e2db57f8b15fab449.tar.xz
drakx-backup-do-not-use-dd40621fa1311c9bce97902e2db57f8b15fab449.zip
*** empty log message ***
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index c7d8ed25e..54e75bcd8 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -19,7 +19,7 @@ my %languages = (
"ro" => [ "Romanian", "lat2-sun16", "iso02", "ro_RO" ],
"sk" => [ "Slovak", "lat2-sun16", "iso02", "sk_SK" ],
"ru" => [ "Russian", "Cyr_a8x16", "koi2alt", "ru_SU" ],
-"uk_UA"=> [ "Ukrainian", "RUSCII_8x16", "koi2alt", "uk_UA" ],
+"uk_UA"=> [ "Ukrainian", "ruscii_8x16", "koi2alt", "uk_UA" ],
);
1;
@@ -39,7 +39,7 @@ sub set {
if ($lang) {
$ENV{LANG} = $ENV{LINGUAS} = $lang;
$ENV{LC_ALL} = $languages{$lang}->[3];
- my $f = $languages{$lang}->[1]; $f and load_font($f);
+ #if (my $f = $languages{$lang}->[1]) { load_font($f) }
} else {
# stick with the default (English) */
delete $ENV{LANG};
@@ -74,7 +74,7 @@ sub write {
sub load_font {
my ($fontFile) = @_;
- cpio::installCpioFile("/etc/fonts.cgz", $fontFile, "/tmp/font", 1) or die "error extracting $fontFile from /etc/fonts.cfz";
- c::loadFont('/tmp/font') or log::l("error in loadFont: one of PIO_FONT PIO_UNIMAPCLR PIO_UNIMAP PIO_UNISCRNMAP failed: $!");
+ log::l("loading font /usr/share/consolefonts/$fontFile.psf");
+ c::loadFont("/tmp/$fontFile") or log::l("error in loadFont: one of PIO_FONT PIO_UNIMAPCLR PIO_UNIMAP PIO_UNISCRNMAP failed: $!");
print STDERR "\033(K";
}