summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm3
-rw-r--r--perl-install/mouse.pm4
2 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index d492f08ac..02fa7829c 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -246,8 +246,7 @@ sub selectMouse {
any::setup_thiskind($o, 'usb', !$::expert, 0, $o->{pcmcia}) if $o->{mouse}{device} eq "usbmouse";
eval {
devices::make("usbmouse");
- modules::load("usbmouse");
- modules::load("mousedev");
+ modules::load($_) foreach qw(hid mousedev usbmouse);
} if $o->{mouse}{device} eq "usbmouse";
$o->SUPER::selectMouse;
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 07130be50..6d80964b4 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -261,13 +261,13 @@ sub detect() {
if (modules::get_alias("usb-interface")) {
if (my (@l) = detect_devices::usbMice()) {
log::l("found usb mouse $_->{driver} $_->{description} ($_->{type})") foreach @l;
- eval { modules::load("usbmouse"); modules::load("mousedev"); };
+ eval { modules::load($_) foreach qw(hid mousedev usbmouse) };
if (!$@ && detect_devices::tryOpen("usbmouse")) {
my $mouse = fullname2mouse($l[0]{driver} =~ /Mouse:(.*)/ ? $1 : "USB|Generic");
$auxmouse and $mouse->{auxmouse} = $auxmouse; #- for laptop, we kept the PS/2 as secondary (symbolic).
return $mouse;
}
- eval { modules::unload("mousedev"); modules::unload("usbmouse"); };
+ eval { modules::unload($_) foreach qw(usbmouse mousedev hid) };
}
}
$auxmouse;