diff options
Diffstat (limited to 'perl-install/modules.pm')
| -rw-r--r-- | perl-install/modules.pm | 6 |
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. |