From: Mike Taylor <mike@indexdata.com>
Date: Wed, 6 Dec 2006 11:26:52 +0000 (+0000)
Subject: Do not report remaining END events.
X-Git-Tag: CPAN-v1.02~705
X-Git-Url: http://lists.indexdata.com/cgi-bin?a=commitdiff_plain;h=88dab1047b15f1f2ebfe34e0d7e52b857be1877e;p=irspy-moved-to-github.git

Do not report remaining END events.
---

diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm
index ea292c9..b190d62 100644
--- a/lib/ZOOM/IRSpy.pm
+++ b/lib/ZOOM/IRSpy.pm
@@ -1,4 +1,4 @@
-# $Id: IRSpy.pm,v 1.51 2006-11-21 11:48:01 mike Exp $
+# $Id: IRSpy.pm,v 1.52 2006-12-06 11:26:52 mike Exp $
 
 package ZOOM::IRSpy;
 
@@ -488,7 +488,8 @@ sub check {
 	my $conn = $conn[$i1-1];
 	my $ev = $conn->last_event();
 	my $evstr = ZOOM::event_str($ev);
-	warn "$conn still has ZOOM-C level task queued: $ev ($evstr)";
+	warn "$conn still has ZOOM-C level task queued: $ev ($evstr)"
+	    if $ev != ZOOM::Event::ZEND;
     }
 
     return $nskipped;