summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-10-11 18:56:00 +0000
committerFrancois Pons <fpons@mandriva.com>1999-10-11 18:56:00 +0000
commite73f1bb1e10140c58f3cb9110c5af78a43ec9515 (patch)
treed76c4fb9ce80a80b3f558629535f9b90e84e5f68 /perl-install/install_steps.pm
parente4f62031c585cbc4a45230714e13821b9bfca34c (diff)
downloaddrakx-e73f1bb1e10140c58f3cb9110c5af78a43ec9515.tar
drakx-e73f1bb1e10140c58f3cb9110c5af78a43ec9515.tar.gz
drakx-e73f1bb1e10140c58f3cb9110c5af78a43ec9515.tar.bz2
drakx-e73f1bb1e10140c58f3cb9110c5af78a43ec9515.tar.xz
drakx-e73f1bb1e10140c58f3cb9110c5af78a43ec9515.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm13
1 files changed, 6 insertions, 7 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 3191e167a..a4bf25532 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -41,6 +41,12 @@ sub new($$) {
sub enteringStep($$) {
my ($o, $step) = @_;
log::l("starting step `$step'");
+}
+sub leavingStep($$) {
+ my ($o, $step) = @_;
+ log::l("step `$step' finished");
+
+ eval { commands::cp('-f', "/tmp/ddebug.log", "$o->{prefix}/root") } if -d "$o->{prefix}/root" && !$::testing;
for (my $s = $o->{steps}{first}; $s; $s = $o->{steps}{$s}{next}) {
@@ -54,13 +60,6 @@ sub enteringStep($$) {
}
$o->{steps}{$s}{reachable} = 1 if $reachable;
}
-}
-sub leavingStep($$) {
- my ($o, $step) = @_;
- log::l("step `$step' finished");
-
- eval { commands::cp('-f', "/tmp/ddebug.log", "$o->{prefix}/root") } if -d "$o->{prefix}/root" && !$::testing;
-
$o->{steps}{$step}{reachable} = $o->{steps}{$step}{redoable};
while (my $f = shift @{$o->{steps}{$step}{toBeDone} || []}) {