diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/modules.pm | 23 |
1 files changed, 9 insertions, 14 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 712da0164..5be4cbfa0 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -62,7 +62,6 @@ sub load { } else { load_raw(map { [ $_ => $options{$_} ] } @l); } - post_load(@l); sleep 2 if any { /^(usb-storage|mousedev|printer)$/ } @l; if ($network_module) { @@ -357,6 +356,15 @@ sub read_already_loaded() { sub when_load { my ($name, @options) = @_; + if ($name =~ /usb-[uo]hci/) { + 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 4; + load("usbkbd", "keybdev") if detect_devices::usbKeyboards(); + } + } + load('snd-pcm-oss') if $name =~ /^snd-/; add_alias('ieee1394-controller', $name) if member($name, 'ohci1394'); add_probeall('usb-interface', $name) if $name =~ /usb-[uo]hci/ || $name eq 'ehci-hcd'; @@ -410,19 +418,6 @@ sub load_raw { } -sub post_load { - my @modules = @_; - - if (any { /usb-[uo]hci/ } @modules) { - 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 4; - load("usbkbd", "keybdev") if detect_devices::usbKeyboards(); - } - } -} - sub get_parameters { map { if_(/(.*)=(.*)/, $1 => $2) } split(' ', get_options($_[0])); } |