diff options
Diffstat (limited to 'perl-install/detect_devices.pm')
| -rw-r--r-- | perl-install/detect_devices.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 4aea403b8..1246fbdb3 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -587,12 +587,12 @@ sub stringlist() { sub tryOpen($) { my $F; - sysopen $F, devices::make($_[0]), c::O_NONBLOCK() and $F; + sysopen($F, devices::make($_[0]), c::O_NONBLOCK()) && $F; } sub tryWrite($) { my $F; - sysopen $F, devices::make($_[0]), 1 | c::O_NONBLOCK() and $F; + sysopen($F, devices::make($_[0]), 1 | c::O_NONBLOCK()) && $F; } sub syslog() { @@ -685,7 +685,7 @@ sub probeSerialDevices() { sub probeSerial($) { $serialprobe{$_[0]} } sub hasModem($) { - $serialprobe{$_[0]} and $serialprobe{$_[0]}{CLASS} eq 'MODEM' and $serialprobe{$_[0]}{DESCRIPTION}; + $serialprobe{$_[0]} && $serialprobe{$_[0]}{CLASS} eq 'MODEM' && $serialprobe{$_[0]}{DESCRIPTION}; } sub hasMousePS2 { |