decode AGW messages when there 36 bytes available

[spider.git] / perl / Msg.pm

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 3b9dbd36f2a4f546f4b25169f1360b0552bed40d..d1f2589b0aabb58d96af1d44a7b6f6b51d459bdf 100644 (file)
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -482,7 +482,7 @@ sub event_loop {
        # Quit the loop if no handles left to process
         last unless ($rd_handles->count() || $wt_handles->count());
         
-               ($rset, $wset) = IO::Select->select($rd_handles, $wt_handles, $er_handles, $timeout);
+               ($rset, $wset, $eset) = IO::Select->select($rd_handles, $wt_handles, $er_handles, $timeout);
                
         foreach $e (@$eset) {
             &{$er_callbacks{$e}}($e) if exists $er_callbacks{$e};