summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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;