diff options
Diffstat (limited to 'perl-install/mouse.pm')
| -rw-r--r-- | perl-install/mouse.pm | 10 |
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'; |