summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-30 19:59:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-30 19:59:49 +0000
commit6f69ebde892e7c8f3c70b66710c1f53bfa05f39d (patch)
tree7502913fec3c73e22d31b1c16d4c02825c396ea6 /perl-install
parent441902ebadd5fe9201bede5e8999410263238561 (diff)
downloaddrakx-6f69ebde892e7c8f3c70b66710c1f53bfa05f39d.tar
drakx-6f69ebde892e7c8f3c70b66710c1f53bfa05f39d.tar.gz
drakx-6f69ebde892e7c8f3c70b66710c1f53bfa05f39d.tar.bz2
drakx-6f69ebde892e7c8f3c70b66710c1f53bfa05f39d.tar.xz
drakx-6f69ebde892e7c8f3c70b66710c1f53bfa05f39d.zip
(read): it works now
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/lang.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index e6fbb3596..0b58ee36d 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -378,8 +378,8 @@ sub unpack_langs {
sub read {
my ($prefix) = @_;
- my $h = getVarsFromSh("$prefix/etc/sysconfig/i18n");
- my $lang = $h ? $h->{LC_MESSAGES} : 'en_US';
+ my %h = getVarsFromSh("$prefix/etc/sysconfig/i18n");
+ my $lang = $h{LC_MESSAGES} || 'en_US';
my $langs =
cat_("$prefix/etc/rpm/macros") =~ /%_install_langs (.*)/ ? unpack_langs($1) : { $lang => 1 };
$lang, $langs;