From 21fbfdfead833c685b255edb3c3460198ce89877 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 6 Aug 2000 13:43:26 +0000
Subject: no_comment

---
 perl-install/mouse.pm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'perl-install/mouse.pm')

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");
-- 
cgit v1.2.1