From 4bb042efd8ca9b9cf5f40e66187d9708877a79a5 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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_any.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 61a50d50f..d3b9db89b 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -193,9 +193,7 @@ sub clean_postinstall_rpms() {
 #- Functions
 #-######################################################################################
 sub getNextStep() {
-    my ($s) = $::o->{steps}{first};
-    $s = $::o->{steps}{$s}{next} while $::o->{steps}{$s}{done} || !$::o->{steps}{$s}{reachable};
-    $s;
+    find { !$::o->{steps}{$_}{done} && $::o->{steps}{$_}{reachable} } @{$::o->{orderedSteps}}
 }
 
 sub spawnShell() {
-- 
cgit v1.2.1