diff options
Diffstat (limited to 'perl-install/install_steps.pm')
| -rw-r--r-- | perl-install/install_steps.pm | 13 |
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); } #------------------------------------------------------------------------------ |