From 969bc065596476bce5cfed0bb7ffd263f48eb1d5 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 5 May 2000 18:45:23 +0000
Subject: *** empty log message ***

---
 perl-install/mouse.pm | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

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

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 09ccbc365..8f8607990 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -139,23 +139,18 @@ sub detect() {
     eval { commands::modprobe("serial") };
     my ($r, $wacom) = mouseconfig(); return ($r, $wacom) if $r;
 
-    require pci_probing::main;
-    if (my ($c) = grep { /usb-/ } map { $_->[1] } pci_probing::main::probe('')) {
+    if (detect_devices::probeUSB()) {
 	eval { 
-	    modules::load($c, "SERIAL_USB");
 	    modules::load("usbmouse");
 	    modules::load("mousedev");
 	   };
 	sleep(1);
 	if (!$@ && detect_devices::tryOpen("usbmouse")) {
 	    $wacom or modules::unload("serial"); 
-	    modules::load("usbkbd");
-	    modules::load("keybdev");
 	    return name2mouse("USB Mouse"), $wacom;
 	}
 	modules::unload("mousedev");
 	modules::unload("usbmouse");
-	modules::unload($c, 'remove_alias');
     }
 
     #- defaults to generic ttyS0
-- 
cgit v1.2.1