From 8f5d72a12b4488f3007c73537d5212b6b67cadce Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 3 May 2000 13:24:32 +0000
Subject: *** empty log message ***

---
 perl-install/modules.pm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 6e9afe25f..4c85007c1 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -524,7 +524,7 @@ sub load_thiskind($;&$) {
 
     my @devs = (@pcidevs, @pcmciadevs);
 
-    load("sd_mod") if $type eq 'scsi' && @devs; 
+    load("sd_mod") if $type eq 'scsi' && @devs;
 
     my %devs; foreach (@devs) {
 	my ($text, $mod) = @$_;
@@ -593,3 +593,18 @@ sub load_ide {
 	load_multi(qw(ide-probe ide-disk ide-cd));
     }
 }
+
+sub load_usbscsi { #- TODO
+    require pci_probing::main;
+    eval {
+	if (my ($c) = grep { /usb-/ } map { $_->[1] } pci_probing::main::probe('')) {
+	    load($c, "SERIAL_USB"); load("usb-storage");
+	    sleep(1);
+	    if (!$@ && -e "/proc/scsi/usb/0") {
+		return 1;
+	    }
+	    unload("usb-storage");
+	}
+    };
+    0;
+}
-- 
cgit v1.2.1