diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-09 09:02:47 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-09 09:02:47 +0000 |
| commit | 1d3ac921d66022bb6e19a96dce95472cc31f0987 (patch) | |
| tree | 4da18678cee71134f6cec6004f0b41afe6d25145 /perl-install/install_steps.pm | |
| parent | db4013c2a40eaeb3752cc69623037e4bb274693b (diff) | |
| download | drakx-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar drakx-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar.gz drakx-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar.bz2 drakx-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar.xz drakx-1d3ac921d66022bb6e19a96dce95472cc31f0987.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps.pm')
| -rw-r--r-- | perl-install/install_steps.pm | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 6cd107081..cf3df79dc 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -52,17 +52,14 @@ sub enteringStep($$) { my @l = ref $needs ? @$needs : $needs; $reachable = min(map { $o->{steps}{$_}{done} || 0 } @l); } - $o->{steps}{$s}{reachable} = 1, $o->step_set_reachable($s) if $reachable; + $o->{steps}{$s}{reachable} = 1 if $reachable; } } sub leavingStep($$) { my ($o, $step) = @_; log::l("step `$step' finished"); - unless ($o->{steps}{$step}{redoable}) { - $o->{steps}{$step}{reachable} = 0; - $o->step_set_unreachable($step); - } + $o->{steps}{$step}{reachable} = $o->{steps}{$step}{redoable}; while (my $f = shift @{$o->{steps}{$step}{toBeDone} || []}) { eval { &$f() }; @@ -149,7 +146,7 @@ sub installPackages($$) { sub afterInstallPackages($) { my ($o) = @_; - # why not? cuz weather is nice today :-) [pixel] + #- why not? cuz weather is nice today :-) [pixel] sync(); sync(); # configPCMCIA($o->{rootPath}, $o->{pcmcia}); @@ -175,7 +172,7 @@ sub configureNetwork($) { network::add2hosts("$etc/hosts", $o->{netc}{HOSTNAME}, map { $_->{IPADDR} } @{$o->{intf}}); network::sethostname($o->{netc}) unless $::testing; network::addDefaultRoute($o->{netc}) unless $::testing; - #res_init(); # reinit the resolver so DNS changes take affect + #-res_init(); # reinit the resolver so DNS changes take affect } #------------------------------------------------------------------------------ @@ -265,7 +262,7 @@ sub createBootdisk($) { my @l = detect_devices::floppies(); $dev = shift @l || die _("no floppy available") - if $dev eq "1"; # special case meaning autochoose + if $dev eq "1"; #- special case meaning autochoose return if $::testing; @@ -291,4 +288,4 @@ sub exitInstall {} #-###################################################################################### #- Wonderful perl :( #-###################################################################################### -1; # +1; |