From 60210c4ee9deafbe27cbc7ed3769dbaf3045f771 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Mon, 20 Nov 2006 15:06:46 +0000 Subject: [PATCH] More debugging diagnostics after exit from main loop. (All remaining events are drained.) --- lib/ZOOM/IRSpy.pm | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index cbf19c3..7144720 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.49 2006-11-16 17:19:28 mike Exp $ +# $Id: IRSpy.pm,v 1.50 2006-11-20 15:06:46 mike Exp $ package ZOOM::IRSpy; @@ -475,13 +475,22 @@ sub check { warn "$conn still has a queued task $task"; } if (!$conn->is_idle()) { - warn "$conn is not idle (still has ZOOM-C level tasks queued)"; + warn "$conn still has ZOOM-C level tasks queued: see below"; } if (!$conn->option("rewrote_record")) { warn "$conn did not rewrite its ZeeRex record"; } } + # This shouldn't happen emit anything either: + @conn = @{ $this->{connections} }; + while (my $i1 = ZOOM::event(\@conn)) { + 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)"; + } + return $nskipped; } -- 1.7.10.4