summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-05-30 11:08:27 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-05-30 11:08:27 +0000
commitbe6d2dbd96e93421399e4a154b79d1411ad65755 (patch)
tree84447f1f412ac39353b4bf91728d826c186701a1 /perl-install
parenta3fc19de6e3a26223fdbe4cabf56fd95a420b6e7 (diff)
downloaddrakx-backup-do-not-use-be6d2dbd96e93421399e4a154b79d1411ad65755.tar
drakx-backup-do-not-use-be6d2dbd96e93421399e4a154b79d1411ad65755.tar.gz
drakx-backup-do-not-use-be6d2dbd96e93421399e4a154b79d1411ad65755.tar.bz2
drakx-backup-do-not-use-be6d2dbd96e93421399e4a154b79d1411ad65755.tar.xz
drakx-backup-do-not-use-be6d2dbd96e93421399e4a154b79d1411ad65755.zip
- fix detecting usb drives (#13395)
(need a new perl-MDK-Common)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/modules.pm11
2 files changed, 9 insertions, 4 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 3977f4683..1e8240f99 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -2,6 +2,8 @@
available (network installs) (#30344)
- do not try to configure dvd devices since /dev is wiped out at
reboot
+- fix detecting usb drives (#13395)
+ (need a new perl-MDK-Common)
- hw support:
o handle snd-cs5530 driver
- install fonts-ttf-dejavu & fonts-ttf-liberation by default
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 9191c454a..8d6a9f116 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -75,11 +75,14 @@ sub load_raw {
} elsif (member('usb-storage', @$l)) {
#- usb-storage is only modprobed when we know there is some scsi devices
#- 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
- while ($retry--) {
+
+ #- first sleep the minimum time usb-stor-scan takes
+ sleep 5; #- 5 == /sys/module/usb_storage/parameters/delay_use
+ # then wait for usb-stor-scan to complete
+ my $retry = 0;
+ while ($retry++ < 10) {
+ fuzzy_pidofs('usb-stor-scan') or last;
sleep 1;
- last if all('/sys/bus/scsi/devices');
log::l("waiting for usb-storage devices to appear (retry = $retry)");
}
}