summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-20 12:36:37 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-20 12:36:37 +0000
commit56c1b0d4fe9f5a9908827a51b22fa53dd0265bbd (patch)
treeeb38202994e13fa1b45ad115db0d73ac7aaec88f /perl-install/install_steps.pm
parent70c400f9a433cb7139c3c30e3cd8aaf350613483 (diff)
downloaddrakx-backup-do-not-use-56c1b0d4fe9f5a9908827a51b22fa53dd0265bbd.tar
drakx-backup-do-not-use-56c1b0d4fe9f5a9908827a51b22fa53dd0265bbd.tar.gz
drakx-backup-do-not-use-56c1b0d4fe9f5a9908827a51b22fa53dd0265bbd.tar.bz2
drakx-backup-do-not-use-56c1b0d4fe9f5a9908827a51b22fa53dd0265bbd.tar.xz
drakx-backup-do-not-use-56c1b0d4fe9f5a9908827a51b22fa53dd0265bbd.zip
no_comment
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm13
1 files changed, 3 insertions, 10 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index c298c2c9f..f779268ca 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -10,6 +10,7 @@ use common qw(:file :system :common);
use install_any qw(:all);
use partition_table qw(:types);
use detect_devices;
+use timezone;
use modules;
use run_program;
use lilo;
@@ -100,7 +101,7 @@ sub setupSCSI { modules::load_thiskind('scsi') }
sub doPartitionDisks($$) {
my ($o, $hds) = @_;
return if $::testing;
- partition_table::write($_) foreach $hds;
+ partition_table::write($_) foreach @$hds;
}
#------------------------------------------------------------------------------
@@ -194,15 +195,7 @@ sub pcmciaConfig($) {
#------------------------------------------------------------------------------
sub timeConfig {
my ($o, $f) = @_;
- my $t = $o->{timezone};
-
- eval { commands::cp("-f", "/usr/share/zoneinfo/$t->{timezone}", "/etc/localtime") };
- $@ and log::l("installing /etc/localtime failed");
- setVarsInSh($f, {
- ZONE => $t->{timezone},
- GMT => bool2text($t->{GMT}),
- ARC => "false",
- });
+ timezone::write($o->{prefix}, $o->{timezone}, $f);
}
#------------------------------------------------------------------------------