summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-04-07 14:43:04 +0000
committerFrancois Pons <fpons@mandriva.com>2000-04-07 14:43:04 +0000
commit1800d14ff9ac6dd218d274b6b4e13e3e71baecc4 (patch)
tree4a915815837bb688748bcefaaef31e1dce35fcac /perl-install/mouse.pm
parentfe2f11d05f38a658db90c75ce73dbe87bfb84a64 (diff)
downloaddrakx-1800d14ff9ac6dd218d274b6b4e13e3e71baecc4.tar
drakx-1800d14ff9ac6dd218d274b6b4e13e3e71baecc4.tar.gz
drakx-1800d14ff9ac6dd218d274b6b4e13e3e71baecc4.tar.bz2
drakx-1800d14ff9ac6dd218d274b6b4e13e3e71baecc4.tar.xz
drakx-1800d14ff9ac6dd218d274b6b4e13e3e71baecc4.zip
*** empty log message ***
Diffstat (limited to 'perl-install/mouse.pm')
-rw-r--r--perl-install/mouse.pm10
1 files changed, 7 insertions, 3 deletions
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';