summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-05-03 13:24:32 +0000
committerFrancois Pons <fpons@mandriva.com>2000-05-03 13:24:32 +0000
commit8f5d72a12b4488f3007c73537d5212b6b67cadce (patch)
treebd76dac0f42c1d3e08c55d03b777741868a72fba /perl-install/modules.pm
parent0f91e019e84e1cc55b224ebb4b81eccaf63eecbe (diff)
downloaddrakx-8f5d72a12b4488f3007c73537d5212b6b67cadce.tar
drakx-8f5d72a12b4488f3007c73537d5212b6b67cadce.tar.gz
drakx-8f5d72a12b4488f3007c73537d5212b6b67cadce.tar.bz2
drakx-8f5d72a12b4488f3007c73537d5212b6b67cadce.tar.xz
drakx-8f5d72a12b4488f3007c73537d5212b6b67cadce.zip
*** empty log message ***
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;
+}