From: Mike Taylor <mike@indexdata.com>
Date: Fri, 12 May 2006 13:31:00 +0000 (+0000)
Subject: Consistent formatting for different ZOOM::Log::log() calls.
X-Git-Tag: CPAN-v1.02~54^2~1217
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=50603f0ba0ffb480007d139143ef74cdfb69f3a6;p=irspy-moved-to-github.git

Consistent formatting for different ZOOM::Log::log() calls.
---

diff --git a/lib/ZOOM/Pod.pm b/lib/ZOOM/Pod.pm
index 122a108..dd6e14c 100644
--- a/lib/ZOOM/Pod.pm
+++ b/lib/ZOOM/Pod.pm
@@ -1,4 +1,4 @@
-# $Id: Pod.pm,v 1.9 2006-05-12 13:28:40 mike Exp $
+# $Id: Pod.pm,v 1.10 2006-05-12 13:31:00 mike Exp $
 
 package ZOOM::Pod;
 
@@ -267,7 +267,7 @@ sub wait {
 	my $conn = $this->{conn}->[$i-1];
 	my $ev = $conn->last_event();
 	my $evstr = ZOOM::event_str($ev);
-	ZOOM::Log::log("pod", "connection ", $i-1, ": $evstr");
+	ZOOM::Log::log("pod", "connection ", $i-1, ": event $ev ($evstr)");
 
 	eval {
 	    $conn->_check();
@@ -286,7 +286,7 @@ sub wait {
 			 $this->{rs}->[$i-1], $ev);
 	    last if $res != 0;
 	} else {
-	    ZOOM::Log::log("pod_unhandled", "unhandled event $ev ($evstr)");
+	    ZOOM::Log::log("pod_unhandled", "connection ", $i-1, ": unhandled event $ev ($evstr)");
 	}
     }