From 8e9a8bf6b12b8340e2fa5d6ae551e6e9a22019b3 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Sun, 27 Jun 2004 17:44:25 +0000
Subject: Catch a possible use of undefined values in a log trace() call.

---
 Echolot/Tools.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Echolot')

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;
-- 
cgit v1.2.3