From 4bb042efd8ca9b9cf5f40e66187d9708877a79a5 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 15 Oct 2003 14:23:53 +0000 Subject: drop field {next} in {steps} since it is duplicated in orderedSteps => it allows simpler modification of orderedSteps (as already done in upgrade) for mandrake move --- perl-install/install_steps.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 6833b3b83..9a95e2648 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -56,7 +56,7 @@ sub leavingStep { output(install_any::auto_inst_file(), install_any::g_auto_install(1)); } - for (my $s = $o->{steps}{first}; $s; $s = $o->{steps}{$s}{next}) { + foreach my $s (@{$o->{orderedSteps}}) { #- the reachability property must be recomputed each time to take #- into account failed step. next if $o->{steps}{$s}{done} && !$o->{steps}{$s}{redoable}; -- cgit v1.2.1