From e73f1bb1e10140c58f3cb9110c5af78a43ec9515 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 11 Oct 1999 18:56:00 +0000
Subject: *** empty log message ***

---
 perl-install/install_steps.pm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'perl-install/install_steps.pm')

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} || []}) {
-- 
cgit v1.2.1