diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-07 17:29:37 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-07 17:29:37 +0000 |
commit | a1f0c87ac7f98f8555717fd934edf7e706b8694c (patch) | |
tree | 1c93711a8b9d69bacbfbf5dccd5a9dbd7abfc613 /perl-install/lang.pm | |
parent | 241ac866dc8d3d872aa7848eb0d56eb57cf82233 (diff) | |
download | drakx-backup-do-not-use-a1f0c87ac7f98f8555717fd934edf7e706b8694c.tar drakx-backup-do-not-use-a1f0c87ac7f98f8555717fd934edf7e706b8694c.tar.gz drakx-backup-do-not-use-a1f0c87ac7f98f8555717fd934edf7e706b8694c.tar.bz2 drakx-backup-do-not-use-a1f0c87ac7f98f8555717fd934edf7e706b8694c.tar.xz drakx-backup-do-not-use-a1f0c87ac7f98f8555717fd934edf7e706b8694c.zip |
no_comment
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r-- | perl-install/lang.pm | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index cec746739..218ae85a6 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -289,12 +289,8 @@ sub write { $lang or return; - my $h = { LC_COLLATE => $lang }; - add2hash $h, { LC_CTYPE => $lang }; - add2hash $h, { LC_MESSAGES => $lang }; - add2hash $h, { LC_NUMERIC => $lang }; - add2hash $h, { LC_MONETARY => $lang }; - add2hash $h, { LC_TIME => $lang }; + my $h = { RPM_INSTALL_LANG => $ENV{RPM_INSTALL_LANG} }; + $h{$_} = $lang foreach qw(LC_COLLATE LC_CTYPE LC_MESSAGES LC_NUMERIC LC_MONETARY LC_TIME); if (my $l = $languages{$lang}) { add2hash $h, { LANG => $l->[2], LANGUAGE => $l->[3], KDE_LANG => $l->[3], RPM_INSTALL_LANG => $l->[3] }; |