diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index e34187bad..2e4503851 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -273,11 +273,13 @@ sub selectMouse { ]) or return; } - any::setup_thiskind($o, 'usb', !$::expert, 0, $o->{pcmcia}) if $o->{mouse}{device} eq "usbmouse"; - eval { - devices::make("usbmouse"); - modules::load($_) foreach qw(hid mousedev usbmouse); - } if $o->{mouse}{device} eq "usbmouse"; + if ($o->{mouse}{device} eq "usbmouse") { + any::setup_thiskind($o, 'usb', !$::expert, 1, $o->{pcmcia}); + eval { + devices::make("usbmouse"); + modules::load($_) foreach qw(hid mousedev usbmouse); + }; + } $o->SUPER::selectMouse; 1; |