summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-08-06 13:43:26 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-08-06 13:43:26 +0000
commit21fbfdfead833c685b255edb3c3460198ce89877 (patch)
tree53d5fe3042a57097040f468982deb062737fe26a /perl-install/mouse.pm
parentf18434c76326cf6c58d24dc67ef4707ec72f400d (diff)
downloaddrakx-21fbfdfead833c685b255edb3c3460198ce89877.tar
drakx-21fbfdfead833c685b255edb3c3460198ce89877.tar.gz
drakx-21fbfdfead833c685b255edb3c3460198ce89877.tar.bz2
drakx-21fbfdfead833c685b255edb3c3460198ce89877.tar.xz
drakx-21fbfdfead833c685b255edb3c3460198ce89877.zip
no_comment
Diffstat (limited to 'perl-install/mouse.pm')
-rw-r--r--perl-install/mouse.pm7
1 files changed, 2 insertions, 5 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 578765f7b..94741db34 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -178,12 +178,9 @@ sub detect() {
modules::load("mousedev");
};
sleep(2);
- if (!$@) {
- my $dev;
- $dev ||= "usbmouse" if detect_devices::tryOpen("usbmouse");
- $dev ||= "usbmice" if detect_devices::tryOpen("usbmice");
+ if (!$@ && detect_devices::tryOpen("usbmouse")) {
$wacom or modules::unload("serial");
- return add2hash({ device => $dev }, name2mouse("USB Mouse")), $wacom;
+ return name2mouse("USB Mouse"), $wacom;
}
modules::unload("mousedev");
modules::unload("usbmouse");