diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-23 13:09:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-23 13:09:22 +0000 |
| commit | 22a6a8ec579c8108b37bccc44c18342f341cbfb9 (patch) | |
| tree | 9622b34ee6378b881c3b1a666f876d18ff3d16d8 /perl-install | |
| parent | 6e0bb1756e368a569a5b054d939da4f3a2911c7b (diff) | |
| download | drakx-22a6a8ec579c8108b37bccc44c18342f341cbfb9.tar drakx-22a6a8ec579c8108b37bccc44c18342f341cbfb9.tar.gz drakx-22a6a8ec579c8108b37bccc44c18342f341cbfb9.tar.bz2 drakx-22a6a8ec579c8108b37bccc44c18342f341cbfb9.tar.xz drakx-22a6a8ec579c8108b37bccc44c18342f341cbfb9.zip | |
fix locale support when usingRamdisk
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/lang.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 178671070..37856713d 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -307,14 +307,14 @@ 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 "$ENV{SHARE_PATH}/locale/$languages{$lang}[2]") { + if (!-e "$ENV{SHARE_PATH}/locale/$lang" && common::usingRamdisk()) { @ENV{qw(LANG LC_ALL LANGUAGE LINGUAS)} = (); eval { commands::rm("-r", "$ENV{SHARE_PATH}/locale") }; eval { require packdrake; my $packer = new packdrake("$ENV{SHARE_PATH}/locale.cz2", quiet => 1); - $packer->extract_archive("$ENV{SHARE_PATH}/locale", "UTF-8", $languages{$lang}[2]); + $packer->extract_archive("$ENV{SHARE_PATH}/locale", "UTF-8", split(":", $languages{$lang}[3])); }; } |