summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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 {