summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-05-05 18:45:23 +0000
committerFrancois Pons <fpons@mandriva.com>2000-05-05 18:45:23 +0000
commit969bc065596476bce5cfed0bb7ffd263f48eb1d5 (patch)
tree8f890d39f7b1ccfa6dbeb8f7cc3281748ee30f46 /perl-install/modules.pm
parent8255a2010a0698471fb35f42b1ebcad3462f153a (diff)
downloaddrakx-969bc065596476bce5cfed0bb7ffd263f48eb1d5.tar
drakx-969bc065596476bce5cfed0bb7ffd263f48eb1d5.tar.gz
drakx-969bc065596476bce5cfed0bb7ffd263f48eb1d5.tar.bz2
drakx-969bc065596476bce5cfed0bb7ffd263f48eb1d5.tar.xz
drakx-969bc065596476bce5cfed0bb7ffd263f48eb1d5.zip
*** empty log message ***
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 024936c28..bbc1a04f7 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -547,9 +547,9 @@ sub load_thiskind($;&$) {
if ($type eq 'scsi') {
#- hey, we're allowed to pci probe :) let's do a lot of probing!
- #- probe for USB SCSI, make sure keyboard is allowed.
- if (my ($c) = grep { /usb-/ } map { $_->[1] } pci_probing::main::probe('')) {
- eval { load($c, "SERIAL_USB"); load("usbkbd"); load("keybdev"); load("usb-storage", $type); sleep(2); };
+ #- probe for USB SCSI.
+ if (detect_devices::probeUSB()) {
+ eval { load("usb-storage", $type); sleep(2); };
-d "/proc/scsi/usb" or unload("usb-storage");
}
#- probe for parport SCSI.