X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy.pm;h=03952fea4021c17f4dcaa2e9b64af659d3b2e11d;hp=67884021f091121428beacad2e2bbe660b581c95;hb=50e2800e28099aa7355faf7110a3869e5bda0e5f;hpb=298ce31e2c5c34e4c0e83a3ab720a45f806768cd diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index 6788402..03952fe 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.59 2007-02-09 10:44:25 mike Exp $ +# $Id: IRSpy.pm,v 1.60 2007-02-13 15:02:35 mike Exp $ package ZOOM::IRSpy; @@ -509,7 +509,7 @@ sub check { $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;