summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-03 14:23:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-03 14:23:31 +0000
commit4ad0308a646d6d6ff38d1f8410e3ae43e0b9cabb (patch)
tree0fbde1c8c2615138dbef59381c79615379342c20 /perl-install/lang.pm
parent08f4b5bf2f57dc0d75dcde2cec410a16e1f65f20 (diff)
downloaddrakx-4ad0308a646d6d6ff38d1f8410e3ae43e0b9cabb.tar
drakx-4ad0308a646d6d6ff38d1f8410e3ae43e0b9cabb.tar.gz
drakx-4ad0308a646d6d6ff38d1f8410e3ae43e0b9cabb.tar.bz2
drakx-4ad0308a646d6d6ff38d1f8410e3ae43e0b9cabb.tar.xz
drakx-4ad0308a646d6d6ff38d1f8410e3ae43e0b9cabb.zip
no_comment
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 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";
#-