summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm17
1 files changed, 16 insertions, 1 deletions
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;
+}