diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-06 17:24:08 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-06 17:24:08 +0000 |
| commit | e47d0821bfd0def11d10bb68a46a3335934f283a (patch) | |
| tree | cc930329350bc518f5c9dc586d4e3f0fb1d72091 /perl-install/detect_devices.pm | |
| parent | 1dfe0932b061617719939a72f91fb70ac4ac23b8 (diff) | |
| download | drakx-backup-do-not-use-e47d0821bfd0def11d10bb68a46a3335934f283a.tar drakx-backup-do-not-use-e47d0821bfd0def11d10bb68a46a3335934f283a.tar.gz drakx-backup-do-not-use-e47d0821bfd0def11d10bb68a46a3335934f283a.tar.bz2 drakx-backup-do-not-use-e47d0821bfd0def11d10bb68a46a3335934f283a.tar.xz drakx-backup-do-not-use-e47d0821bfd0def11d10bb68a46a3335934f283a.zip | |
perl_checker compliance
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 { |