summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-07 17:53:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-07 17:53:32 +0000
commitf2eb42f41d60fbad9150fad5962df90c69713192 (patch)
tree4c5fb766963350e64bde6f0b8c937b649e9560ea /perl-install/modules.pm
parenta1f0c87ac7f98f8555717fd934edf7e706b8694c (diff)
downloaddrakx-f2eb42f41d60fbad9150fad5962df90c69713192.tar
drakx-f2eb42f41d60fbad9150fad5962df90c69713192.tar.gz
drakx-f2eb42f41d60fbad9150fad5962df90c69713192.tar.bz2
drakx-f2eb42f41d60fbad9150fad5962df90c69713192.tar.xz
drakx-f2eb42f41d60fbad9150fad5962df90c69713192.zip
no_comment
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm11
1 files changed, 6 insertions, 5 deletions
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();
+ }
}
}
}