summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorAdam Lebsack <adam@mandriva.com>2000-03-02 15:28:05 +0000
committerAdam Lebsack <adam@mandriva.com>2000-03-02 15:28:05 +0000
commit2ed60ec380371c720c59e8bc0f70d68489deb116 (patch)
treeba2f74812577763b4dbb2f9cc245ab2f6b0f6eab /perl-install/detect_devices.pm
parenta912981cf2c3cffc0dd85dc0f625da54e83e0e6c (diff)
downloaddrakx-2ed60ec380371c720c59e8bc0f70d68489deb116.tar
drakx-2ed60ec380371c720c59e8bc0f70d68489deb116.tar.gz
drakx-2ed60ec380371c720c59e8bc0f70d68489deb116.tar.bz2
drakx-2ed60ec380371c720c59e8bc0f70d68489deb116.tar.xz
drakx-2ed60ec380371c720c59e8bc0f70d68489deb116.zip
Added some stuff to detect the mouse on mac hardware. changed files: mouse.pm
and detect_devices.pm. See changelog.
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index ba0765fb5..c1333f34e 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -243,6 +243,10 @@ sub hasMousePS2() {
my $t; sysread(tryOpen("psaux") || return, $t, 256) != 1 || $t ne "\xFE";
}
+sub hasMouseMacUSB {
+ my $t; sysread(tryOpen("usbmouse") || return, $t, 256) != 1 || $t ne "\xFE";
+}
+
#-######################################################################################
#- Wonderful perl :(
#-######################################################################################