diff options
Diffstat (limited to 'perl-install/detect_devices.pm')
| -rw-r--r-- | perl-install/detect_devices.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index d932b4922..8bee5e612 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -218,6 +218,12 @@ sub hasModem($) { $probe{CLASS} =~ /Modem/i && $probe{DESCRIPTION}; } +sub hasMousePS2() { + my $f = detect_devices::tryOpen("psaux"); + my $t; sysread($f, $t, 256) or return; + $t eq "\xFE"; +} + #-###################################################################################### #- Wonderful perl :( #-###################################################################################### |