diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-06 10:33:38 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-06 10:33:38 +0000 |
| commit | e9c6665ac3bd856e38bca0685bf5b8ee34997977 (patch) | |
| tree | 09a6b5aab24b82fd5d68a67313c3b73f96547415 /perl-install/detect_devices.pm | |
| parent | 49d9689b2bd16bcda5a294e3ac9669d14f2ff2b9 (diff) | |
| download | drakx-e9c6665ac3bd856e38bca0685bf5b8ee34997977.tar drakx-e9c6665ac3bd856e38bca0685bf5b8ee34997977.tar.gz drakx-e9c6665ac3bd856e38bca0685bf5b8ee34997977.tar.bz2 drakx-e9c6665ac3bd856e38bca0685bf5b8ee34997977.tar.xz drakx-e9c6665ac3bd856e38bca0685bf5b8ee34997977.zip | |
no_comment
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 :( #-###################################################################################### |