From 969bc065596476bce5cfed0bb7ffd263f48eb1d5 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 5 May 2000 18:45:23 +0000
Subject: *** empty log message ***

---
 perl-install/modules.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/modules.pm')

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.
-- 
cgit v1.2.1