diff options
| author | Peter Palfrader <peter@palfrader.org> | 2004-06-27 17:44:25 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2004-06-27 17:44:25 +0000 |
| commit | 8e9a8bf6b12b8340e2fa5d6ae551e6e9a22019b3 (patch) | |
| tree | a1483ee82359f40cef2dbcddbebc5c856eade190 /Echolot | |
| parent | d4b65d1d1f9cb3424c31fe2b0044eabcdbc016b6 (diff) | |
Catch a possible use of undefined values in a log trace() call.
Diffstat (limited to 'Echolot')
| -rw-r--r-- | Echolot/Tools.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Echolot/Tools.pm b/Echolot/Tools.pm index 956b93c..689d0b1 100644 --- a/Echolot/Tools.pm +++ b/Echolot/Tools.pm @@ -321,7 +321,7 @@ sub readwrite_gpg($$$$$) { while ($sout->count() > 0 || (defined($sin) && ($sin->count() > 0))) { Echolot::Log::trace("select waiting for ".($sout->count())." fds."); ($readyr, $readyw, undef) = IO::Select::select($sout, $sin, undef, 42); - Echolot::Log::trace("ready: write: ".(scalar @$readyw)."; read: ".(scalar @$readyr)); + Echolot::Log::trace("ready: write: ".(defined $readyw ? scalar @$readyw : 'none')."; read: ".(defined $readyr ? scalar @$readyr : 'none')); for my $wfd (@$readyw) { Echolot::Log::trace("writing to $wfd."); my $written = 0; |