summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-07 17:29:37 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-07 17:29:37 +0000
commita1f0c87ac7f98f8555717fd934edf7e706b8694c (patch)
tree1c93711a8b9d69bacbfbf5dccd5a9dbd7abfc613 /perl-install/lang.pm
parent241ac866dc8d3d872aa7848eb0d56eb57cf82233 (diff)
downloaddrakx-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.pm8
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] };