-# $Id: IRSpy.pm,v 1.58 2007-02-05 13:28:51 mike Exp $
+# $Id: IRSpy.pm,v 1.60 2007-02-13 15:02:35 mike Exp $
package ZOOM::IRSpy;
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
# 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;
$finished = 0;
}
my $ev = $conn->peek_event();
- if ($ev != 0) { # Or ZOOM::Event::ZEND?
+ if ($ev != 0 && $ev != ZOOM::Event::ZEND) {
my $evstr = ZOOM::event_str($ev);
$this->log("irspy", "$conn has event $ev ($evstr) waiting");
$finished = 0;