change select timeout

[spider.git] / perl / Msg.pm

diff --git a/perl/Msg.pm b/perl/Msg.pm
index c730773aff702f9c1cbb4d79cad00932dd2f5036..f3dec8b1610b5743e5596b7b406bd9d9ed760304 100644 (file)
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -425,7 +425,6 @@ sub event_loop {
         last unless ($rd_handles->count() || $wt_handles->count());
         
                ($rset, $wset) = IO::Select->select($rd_handles, $wt_handles, $er_handles, $timeout);
-               $now = time;
                
         foreach $e (@$eset) {
             &{$er_callbacks{$e}}($e) if exists $er_callbacks{$e};