summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-09-20 12:57:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-09-20 12:57:34 +0000
commit032696f1e5c68db5be8faa627c61eebbd9d651ff (patch)
tree2203055741acbe74bef1b9f4e259e7f9f67ada60 /perl-install
parente826812a196b4669dd33754bdcb9cf4f69e53fae (diff)
downloaddrakx-032696f1e5c68db5be8faa627c61eebbd9d651ff.tar
drakx-032696f1e5c68db5be8faa627c61eebbd9d651ff.tar.gz
drakx-032696f1e5c68db5be8faa627c61eebbd9d651ff.tar.bz2
drakx-032696f1e5c68db5be8faa627c61eebbd9d651ff.tar.xz
drakx-032696f1e5c68db5be8faa627c61eebbd9d651ff.zip
last inside a "do ... until ..." is bad
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/modules.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 6a9595d8e..cc8e914eb 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -72,11 +72,11 @@ sub load_raw {
#- so trying hard to wait for devices to be detected
my $retry = 10;
sleep 1; #- TOREMOVE for compatibility with previous behaviour: wait at least 2 seconds
- do {
+ while ($retry--) {
sleep 1;
last if all('/sys/bus/scsi/devices');
log::l("waiting for usb-storage devices to appear (retry = $retry)");
- } until !$retry--;
+ }
}
}
sub load_with_options {