diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-30 19:59:49 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-30 19:59:49 +0000 |
| commit | 6f69ebde892e7c8f3c70b66710c1f53bfa05f39d (patch) | |
| tree | 7502913fec3c73e22d31b1c16d4c02825c396ea6 /perl-install | |
| parent | 441902ebadd5fe9201bede5e8999410263238561 (diff) | |
| download | drakx-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.pm | 4 |
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; |