summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-08 16:23:37 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-08 16:23:37 +0000
commit6de860b270a522f6c2b621207ed17667e3fb0939 (patch)
tree3f0382b6d0dfec78b2a5fc7e1dd1afa6b8e79cd9 /perl-install
parent710beeb7b08fdbef497f42cebbbc2e3c7529733c (diff)
downloaddrakx-6de860b270a522f6c2b621207ed17667e3fb0939.tar
drakx-6de860b270a522f6c2b621207ed17667e3fb0939.tar.gz
drakx-6de860b270a522f6c2b621207ed17667e3fb0939.tar.bz2
drakx-6de860b270a522f6c2b621207ed17667e3fb0939.tar.xz
drakx-6de860b270a522f6c2b621207ed17667e3fb0939.zip
timezone::read now returns a hash
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm3
-rw-r--r--perl-install/timezone.pm6
2 files changed, 3 insertions, 6 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index d2394f537..dd4441794 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -291,7 +291,7 @@ sub preConfigureTimezone {
require timezone;
#- can't be done in install cuz' timeconfig %post creates funny things
- add2hash($o->{timezone}, { timezone::read($o->{prefix}) }) if $o->{isUpgrade};
+ add2hash($o->{timezone}, timezone::read($o->{prefix})) if $o->{isUpgrade};
$o->{timezone}{timezone} ||= timezone::bestTimezone(lang::lang2text($o->{lang}));
@@ -441,7 +441,6 @@ sub setAuthentication {
my ($o) = @_;
my ($shadow, $md5, $ldap, $nis, $winbind, $winpass) = @{$o->{authentication} || {}}{qw(shadow md5 LDAP NIS winbind winpass)};
my $p = $o->{prefix};
- #- obsoleted always enabled (in /etc/pam.d/system-auth furthermore) #any::enableMD5Shadow($p, $shadow, $md5);
any::enableShadow($p) if $shadow;
if ($ldap) {
$o->pkg_install(qw(chkauth openldap-clients nss_ldap pam_ldap));
diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm
index fdcdf1aa9..3eb4fafe8 100644
--- a/perl-install/timezone.pm
+++ b/perl-install/timezone.pm
@@ -19,10 +19,8 @@ sub getTimeZones {
sub read {
my ($prefix) = @_;
- my $f = "$prefix/etc/sysconfig/clock";
- my %t = getVarsFromSh($f) or return;
-
- (timezone => $t{ZONE}, UTC => text2bool($t{UTC}));
+ my %t = getVarsFromSh("$prefix/etc/sysconfig/clock") or return {};
+ { timezone => $t{ZONE}, UTC => text2bool($t{UTC}) };
}
sub ntp_server {