diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-09-20 12:57:34 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-09-20 12:57:34 +0000 |
| commit | 032696f1e5c68db5be8faa627c61eebbd9d651ff (patch) | |
| tree | 2203055741acbe74bef1b9f4e259e7f9f67ada60 /perl-install | |
| parent | e826812a196b4669dd33754bdcb9cf4f69e53fae (diff) | |
| download | drakx-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.pm | 4 |
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 { |