X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy.pm;h=67884021f091121428beacad2e2bbe660b581c95;hb=d107d499ecca178a421eee8c31dbcf7d2cfeb67b;hp=a1072b227bb8ef8070f21b459ce5bc70ab6868b8;hpb=6e20e8c0e0f0f60744d34abd4d457e5e60ccaf3c;p=irspy-moved-to-github.git diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index a1072b2..6788402 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.57 2007-01-20 09:53:20 mike Exp $ +# $Id: IRSpy.pm,v 1.59 2007-02-09 10:44:25 mike Exp $ package ZOOM::IRSpy; @@ -404,7 +404,11 @@ sub check { my $i0 = ZOOM::event(\@conn); $this->log("irspy_event", "ZOOM_event(", scalar(@conn), " connections) = $i0"); - last if $i0 == 0 || $i0 == -3; # no events or no connections + if ($i0 == -3 || $i0 == 0) { + # no connections left, or no events on those that remain + $this->log("irspy", "no events remain"); + last; + } my $conn = $conn[$i0-1]; my $ev = $conn->last_event(); my $evstr = ZOOM::event_str($ev); @@ -415,7 +419,6 @@ sub check { eval { $conn->_check() }; if ($@ && ($ev == ZOOM::Event::RECV_DATA || - $ev == ZOOM::Event::RECV_APDU || $ev == ZOOM::Event::ZEND)) { # An error in, say, a search response, becomes visible to # ZOOM before the Receive Data event is sent and persists @@ -423,7 +426,7 @@ sub check { # each report the same error. So we just ignore errors on # "unimportant" events. ### But this doesn't work for, # say, a Connection Refused, as the only event that shows - # us this error is the End. + # us this error is the ZEND. $conn->log("irspy_event", "ignoring error ", "on event $ev ($evstr): $@"); next; @@ -506,7 +509,7 @@ sub check { $finished = 0; } my $ev = $conn->peek_event(); - if ($ev != ZOOM::Event::ZEND) { + if ($ev != 0) { # Or ZOOM::Event::ZEND? my $evstr = ZOOM::event_str($ev); $this->log("irspy", "$conn has event $ev ($evstr) waiting"); $finished = 0; @@ -517,7 +520,8 @@ sub check { } } - # This really shouldn't be necessary, but it's belt and braces + # This really shouldn't be necessary, and in practice it rarely + # helps, but it's belt and braces if (!$finished) { if (++$nruns < 3) { $this->log("irspy", "back into main loop, ${nruns}th time");