summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-15 21:26:17 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-15 21:26:17 +0000
commitdb9344149320870fd92d24b704f673e4880b2b6a (patch)
treef6fd72d7e22e728fb3f188e0f21e3ac38eaab479 /perl-install/detect_devices.pm
parent851338fe8bf4c8d057984431b542b333cbad4b8e (diff)
downloaddrakx-backup-do-not-use-db9344149320870fd92d24b704f673e4880b2b6a.tar
drakx-backup-do-not-use-db9344149320870fd92d24b704f673e4880b2b6a.tar.gz
drakx-backup-do-not-use-db9344149320870fd92d24b704f673e4880b2b6a.tar.bz2
drakx-backup-do-not-use-db9344149320870fd92d24b704f673e4880b2b6a.tar.xz
drakx-backup-do-not-use-db9344149320870fd92d24b704f673e4880b2b6a.zip
no_comment
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm8
1 files changed, 2 insertions, 6 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 8ae0ca346..319975db3 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -307,12 +307,8 @@ sub hasModem($) {
$serialprobe{$_[0]} and $serialprobe{$_[0]}{CLASS} eq 'MODEM' and $serialprobe{$_[0]}{DESCRIPTION};
}
-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";
+sub hasMousePS2 {
+ my $t; sysread(tryOpen($_[0]) || return, $t, 256) != 1 || $t ne "\xFE";
}
#-######################################################################################