diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-07 17:29:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-07 17:29:37 +0000 |
| commit | a1f0c87ac7f98f8555717fd934edf7e706b8694c (patch) | |
| tree | 1c93711a8b9d69bacbfbf5dccd5a9dbd7abfc613 /perl-install/mouse.pm | |
| parent | 241ac866dc8d3d872aa7848eb0d56eb57cf82233 (diff) | |
| download | drakx-a1f0c87ac7f98f8555717fd934edf7e706b8694c.tar drakx-a1f0c87ac7f98f8555717fd934edf7e706b8694c.tar.gz drakx-a1f0c87ac7f98f8555717fd934edf7e706b8694c.tar.bz2 drakx-a1f0c87ac7f98f8555717fd934edf7e706b8694c.tar.xz drakx-a1f0c87ac7f98f8555717fd934edf7e706b8694c.zip | |
no_comment
Diffstat (limited to 'perl-install/mouse.pm')
| -rw-r--r-- | perl-install/mouse.pm | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 2382f9f1e..cb3dd3d9c 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -169,22 +169,21 @@ sub detect() { detect_devices::hasMousePS2 and return { %{name2mouse("Generic Mouse (PS/2)")}, unsafe => 1 }; - eval { commands::modprobe("serial") }; - my ($r, $wacom) = mouseconfig(); return ($r, $wacom) if $r; - if (modules::get_alias("usb-interface") && detect_devices::hasUsbMouse()) { eval { modules::load("usbmouse"); modules::load("mousedev"); }; - if (!$@ && detect_devices::tryOpen("usbmouse")) { - $wacom or modules::unload("serial"); - return name2mouse("USB Mouse"), $wacom; + !$@ && detect_devices::tryOpen("usbmouse") and return name2mouse("USB Mouse"); + eval { + modules::unload("mousedev"); + modules::unload("usbmouse"); } - modules::unload("mousedev"); - modules::unload("usbmouse"); } + eval { commands::modprobe("serial") }; + my ($r, $wacom) = mouseconfig(); return ($r, $wacom) if $r; + #- defaults to generic serial mouse on ttyS0. #- Oops? using return let return a hash ref, if not using it, it return a list directly :-) return { %{name2mouse("Generic Mouse (serial)")}, device => "ttyS0", unsafe => 1 }; |