From f2eb42f41d60fbad9150fad5962df90c69713192 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 7 Sep 2000 17:53:32 +0000 Subject: no_comment --- perl-install/modules.pm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'perl-install/modules.pm') diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 7a1e0e203..c7bd31622 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -464,11 +464,12 @@ sub load_raw { } } elsif ($_->[0] =~ /usb-[uo]hci/) { add_alias('usb-interface', $_->[0]); - my $d = '/proc/bus/usb'; - syscall_('mount', $d, $d, my $t= 'usbdevfs', my $f = c::MS_MGC_VAL(), my $fl = '') or die; - #- ensure keyboard is working, the kernel must do the job the BIOS was doing - sleep 2; - load_multi("usbkbd", "keybdev") if detect_devices::hasUsbKeyboard(); + eval { + require fs; fs::mount('/proc/bus/usb', '/proc/bus/usb', 'usbdevfs'); + #- ensure keyboard is working, the kernel must do the job the BIOS was doing + sleep 2; + load_multi("usbkbd", "keybdev") if detect_devices::hasUsbKeyboard(); + } } } } -- cgit v1.2.1