summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.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_any.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_any.pm')
-rw-r--r--perl-install/install_any.pm7
1 files changed, 2 insertions, 5 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 8b5c6dc25..e46428db5 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -56,11 +56,8 @@ sub kernelVersion {
sub getNextStep {
- 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;
- }
+ my ($s) = $::o->{steps}{first};
+ $s = $::o->{steps}{$s}{next} while $::o->{steps}{$s}{done} || !$::o->{steps}{$s}{reachable};
$s;
}