summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm4
-rw-r--r--perl-install/install2.pm3
-rw-r--r--perl-install/modules.pm2
3 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index a517303ee..1c6537bd1 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -83,6 +83,8 @@ sub floppies() {
if_($info && $info ne '(null)', { device => $_, media_type => 'fd', info => $info })
} qw(fd0 fd1);
my @ide = ls120s() and modules::load("ide-floppy");
+
+ eval { modules::load("usb-storage") } if usbStorage();
my @scsi = grep { $_->{media_type} eq 'fd' } getSCSI();
@ide, @scsi, @fds;
}
@@ -352,7 +354,7 @@ sub whatParport() {
sub usbMice { grep { $_->{media_type} =~ /\|Mouse/ && $_->{driver} !~ /Tablet:wacom/} usb_probe() }
sub usbWacom { grep { $_->{driver} =~ /Tablet:wacom/ } usb_probe() }
sub usbKeyboards { grep { $_->{media_type} =~ /\|Keyboard/ } usb_probe() }
-sub usbZips { grep { $_->{media_type} =~ /Mass Storage\|/ } usb_probe() }
+sub usbStorage { grep { $_->{media_type} =~ /Mass Storage\|/ } usb_probe() }
sub whatUsbport() {
my ($i, $elem, @res) = (0, {});
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index a2d52ea20..165d69b5a 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -448,6 +448,8 @@ sub main {
}
require"install_steps_$o->{interactive}.pm" if $o->{interactive}; #- no space to skip perl2fcalls
+ # needed before accessing floppy (in case of usb floppy)
+ $::noauto or modules::load_thiskind("usb");
eval { $o = $::o = install_any::loadO($o, "patch") } if $patch;
eval { $o = $::o = install_any::loadO($o, $cfg) } if $cfg;
@@ -459,7 +461,6 @@ sub main {
} modules::get_that_type('sound');
#- needed very early for install_steps_gtk
- $::noauto or modules::load_thiskind("usb");
eval { ($o->{mouse}, @{$o->{wacom} = []}) = mouse::detect() } unless $o->{nomouseprobe} || $o->{mouse};
$o->{lang} = lang::set($o->{lang}); #- mainly for defcfg
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 9b8a363a4..d2c71fecb 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -746,7 +746,7 @@ sub load_thiskind {
my @try_modules = (
if_($type =~ /scsi/,
if_(arch() !~ /ppc/, 'imm', 'ppa'),
- if_(detect_devices::usbZips(), 'usb-storage'),
+ if_(detect_devices::usbStorage(), 'usb-storage'),
),
if_(arch() =~ /ppc/,
if_($type =~ /scsi/, 'mesh', 'mac53c94'),