From 4ad0308a646d6d6ff38d1f8410e3ae43e0b9cabb Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 3 Apr 2000 14:23:31 +0000 Subject: no_comment --- perl-install/lang.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/lang.pm') diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 298225425..e7199a2f0 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -208,12 +208,12 @@ sub set { #- using a compressed cpio archive is nighmare to extract all files. #- reset locale environment variable to avoid any warnings by perl, #- so installation of new locale is done with empty locale ... - unless (-e "/usr/share/locale/".$languages{$lang}[2]) { + unless (-e "$ENV{SHARE_PATH}/locale/".$languages{$lang}[2]) { @ENV{qw(LANG LC_ALL LANGUAGE LINGUAS)} = (); - eval { commands::rm("-r", "/usr/share/locale") }; + eval { commands::rm("-r", "$ENV{SHARE_PATH}/locale") }; require 'run_program.pm'; - run_program::run("extract_archive", "/usr/share/locale.cz2", '/usr/share/locale', $languages{$lang}[2]); + run_program::run("extract_archive", "$ENV{SHARE_PATH}/locale.cz2", '$ENV{SHARE_PATH}/locale', $languages{$lang}[2]); } $ENV{LC_ALL} = $lang; @@ -330,7 +330,7 @@ sub load_po($) { #- } #- #- # text mode font -#- log::l("loading font /usr/share/consolefonts/$fontFile"); +#- log::l("loading font $ENV{SHARE_PATH}/consolefonts/$fontFile"); #- #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"; #- -- cgit v1.2.1