From a3a015c348486f1f91dbf150a0925887157d6dd1 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 9 Oct 2001 13:56:10 +0000 Subject: ensure floppies() takes care of usb-storage if possible, so that patch on usb floppy works --- perl-install/detect_devices.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install/detect_devices.pm') 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, {}); -- cgit v1.2.1