summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-06-17 23:50:45 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-06-17 23:50:45 +0000
commit6e36e5d6b1d55a4a3bc3796c11e6d306a72d139f (patch)
treeaa3f544f07c559b2ab3507ab0e59337c5185ca88 /perl-install/lang.pm
parentd6fa0eac3f964968cea9acc45802e2b9d2188151 (diff)
downloaddrakx-backup-do-not-use-6e36e5d6b1d55a4a3bc3796c11e6d306a72d139f.tar
drakx-backup-do-not-use-6e36e5d6b1d55a4a3bc3796c11e6d306a72d139f.tar.gz
drakx-backup-do-not-use-6e36e5d6b1d55a4a3bc3796c11e6d306a72d139f.tar.bz2
drakx-backup-do-not-use-6e36e5d6b1d55a4a3bc3796c11e6d306a72d139f.tar.xz
drakx-backup-do-not-use-6e36e5d6b1d55a4a3bc3796c11e6d306a72d139f.zip
kill warnings
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 5695022ab..c1371ecf9 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -904,7 +904,7 @@ sub system_locales_to_ourlocale {
$h->{main};
$locale->{lang} .= '@' . $h->{variant} if $h->{variant};
$locale->{country} = analyse_locale_name($locale_country)->{country};
- $locale->{utf8} = $h->{encoding} eq 'UTF-8';
+ $locale->{utf8} = $h->{encoding} && $h->{encoding} eq 'UTF-8';
#- safe fallbacks
$locale->{lang} ||= 'en_US';
$locale->{country} ||= 'US';
@@ -913,6 +913,7 @@ sub system_locales_to_ourlocale {
sub read {
my ($prefix, $user_only) = @_;
+ $prefix ||= "";
my ($f1, $f2) = ("$prefix$ENV{HOME}/.i18n", "$prefix/etc/sysconfig/i18n");
my %h = getVarsFromSh($user_only && -e $f1 ? $f1 : $f2);
system_locales_to_ourlocale($h{LC_MESSAGES} || 'en_US', $h{LC_MONETARY} || 'en_US');