summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm2
-rw-r--r--perl-install/modules.pm2
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.