summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-06 10:33:38 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-06 10:33:38 +0000
commite9c6665ac3bd856e38bca0685bf5b8ee34997977 (patch)
tree09a6b5aab24b82fd5d68a67313c3b73f96547415 /perl-install/detect_devices.pm
parent49d9689b2bd16bcda5a294e3ac9669d14f2ff2b9 (diff)
downloaddrakx-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.pm6
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 :(
#-######################################################################################