From cd986fb35d446cbc8027c777ce68a0d85ded4576 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 4 May 2000 05:13:17 +0000 Subject: *** empty log message *** --- perl-install/detect_devices.pm | 2 +- perl-install/modules.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 4e27848ee..79fd47345 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -55,7 +55,7 @@ sub cdroms() { } sub floppies() { my @ide = map { $_->{device} } ls120s() and modules::load("ide-floppy"); - my @scsi, map { $_->{device} } usbfdus(); + my @scsi = map { $_->{device} } usbfdus(); (@ide, @scsi, grep { tryOpen($_) } qw(fd0 fd1)); } #- example ls120, model = "LS-120 SLIM 02 UHD Floppy" diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 0e3ea2dc5..07f32e780 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -546,7 +546,7 @@ sub load_thiskind($;&$) { #- 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(1); }; + eval { load($c, "SERIAL_USB"); load("usbkbd"); load("keybdev"); load("usb-storage", $type); sleep(2); }; -d "/proc/scsi/usb" or unload("usb-storage"); } #- probe for parport SCSI. -- cgit v1.2.1