X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy.pm;h=b2e0f154868bb1377b418c6595d40472506d35b4;hp=c0079f0dd24038983319fa16337544bb739d55e8;hb=8d9fe44dfb7b07abc8dff4b7de64bdf64ce8e80d;hpb=ecf314f42f1113d64e0ca048997dbeb55b2a8d1a

diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm
index c0079f0..b2e0f15 100644
--- a/lib/ZOOM/IRSpy.pm
+++ b/lib/ZOOM/IRSpy.pm
@@ -1,4 +1,4 @@
-# $Id: IRSpy.pm,v 1.62 2007-02-22 11:51:58 mike Exp $
+# $Id: IRSpy.pm,v 1.63 2007-02-22 15:43:13 mike Exp $
 
 package ZOOM::IRSpy;
 
@@ -546,7 +546,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)"
+	$this->log("irspy",
+		   "$conn still has ZOOM-C level task queued: $ev ($evstr)")
 	    if $ev != ZOOM::Event::ZEND;
     }