summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-11-07 13:45:46 +0000
committerFrancois Pons <fpons@mandriva.com>1999-11-07 13:45:46 +0000
commit66f14d5895e94e97d100acece1b7df23a28cafc6 (patch)
treee19580b044aea8c5175d852d49ae667194dc63ce /perl-install
parente9d5cd96b2054cad8cca21bc1e7c10e4f4e135ed (diff)
downloaddrakx-66f14d5895e94e97d100acece1b7df23a28cafc6.tar
drakx-66f14d5895e94e97d100acece1b7df23a28cafc6.tar.gz
drakx-66f14d5895e94e97d100acece1b7df23a28cafc6.tar.bz2
drakx-66f14d5895e94e97d100acece1b7df23a28cafc6.tar.xz
drakx-66f14d5895e94e97d100acece1b7df23a28cafc6.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index b8a1ff707..78930e6f8 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -219,7 +219,7 @@ sub hasModem($) {
}
sub hasMousePS2() {
- my $t; sysread(tryOpen("psaux"), $t, 256) != 1 || $t ne "\xFE";
+ my $t; sysread(tryOpen("psaux") || return, $t, 256) != 1 || $t ne "\xFE";
}
#-######################################################################################