From a6fb2364986bfbd051d227a45dd73ce4260dde5f Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 22 Feb 2007 15:43:13 +0000 Subject: [PATCH] Warning of left-over events now emitted using yaz_log() rather than warn(). --- lib/ZOOM/IRSpy.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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; } -- 1.7.10.4