summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-11 17:35:35 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-11 17:35:35 +0000
commite4f62031c585cbc4a45230714e13821b9bfca34c (patch)
tree29ff4480df90ce8b6c0ddf9231a1e567f34ffe2b /perl-install/install_any.pm
parent9ad846cd08f909f760f80bf703b8d4dbe1809c7b (diff)
downloaddrakx-e4f62031c585cbc4a45230714e13821b9bfca34c.tar
drakx-e4f62031c585cbc4a45230714e13821b9bfca34c.tar.gz
drakx-e4f62031c585cbc4a45230714e13821b9bfca34c.tar.bz2
drakx-e4f62031c585cbc4a45230714e13821b9bfca34c.tar.xz
drakx-e4f62031c585cbc4a45230714e13821b9bfca34c.zip
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index a2864957f..8b5c6dc25 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -56,8 +56,11 @@ sub kernelVersion {
sub getNextStep {
- my ($s) = $::o->{steps}{first};
- $s = $::o->{steps}{$s}{next} while $::o->{steps}{$s}{done};
+ my ($s, $old);
+ for ($s = $::o->{steps}{first}; $::o->{steps}{$s}{done}; $s = $::o->{steps}{$s}{next}) {
+ $::o->{steps}{$s}{reachable} or return $old;
+ $old = $s;
+ }
$s;
}