From 1800d14ff9ac6dd218d274b6b4e13e3e71baecc4 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 7 Apr 2000 14:43:04 +0000
Subject: *** empty log message ***

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

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

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index a16c0b1d7..1239ae99f 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -101,9 +101,13 @@ sub write($;$) {
 sub mouseconfig {
     my ($t, $mouse, $wacom);
 
-    foreach (0..1) { #- probe only ttyS0 and ttyS1.
-	$t = detect_devices::probe_device("/dev/ttyS$_");
-	if ($t->{CLASS} =~ /MOUSE/i) {
+    #- Whouah! probing all devices from ttyS0 to ttyS3 once a time!
+    detect_devices::probeSerialDevices();
+
+    #- check new probing methods keep everything used here intact!
+    foreach (0..3) {
+	$t = detect_devices::probeSerial("/dev/ttyS$_");
+	if ($t->{CLASS} eq 'MOUSE') {
 	    $t->{MFG} ||= $t->{MANUFACTURER};
 
 	    $mouse = name2mouse("Microsoft IntelliMouse (serial)") if $t->{MFG} eq 'MSH' && $t->{MODEL} eq '0001';
-- 
cgit v1.2.1