diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-03 14:23:31 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-03 14:23:31 +0000 |
| commit | 4ad0308a646d6d6ff38d1f8410e3ae43e0b9cabb (patch) | |
| tree | 0fbde1c8c2615138dbef59381c79615379342c20 /perl-install/lang.pm | |
| parent | 08f4b5bf2f57dc0d75dcde2cec410a16e1f65f20 (diff) | |
| download | drakx-backup-do-not-use-4ad0308a646d6d6ff38d1f8410e3ae43e0b9cabb.tar drakx-backup-do-not-use-4ad0308a646d6d6ff38d1f8410e3ae43e0b9cabb.tar.gz drakx-backup-do-not-use-4ad0308a646d6d6ff38d1f8410e3ae43e0b9cabb.tar.bz2 drakx-backup-do-not-use-4ad0308a646d6d6ff38d1f8410e3ae43e0b9cabb.tar.xz drakx-backup-do-not-use-4ad0308a646d6d6ff38d1f8410e3ae43e0b9cabb.zip | |
no_comment
Diffstat (limited to 'perl-install/lang.pm')
| -rw-r--r-- | perl-install/lang.pm | 8 |
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"; #- |