X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=f3dec8b1610b5743e5596b7b406bd9d9ed760304;hb=6093d2517f8d7a50c112afa6e96d02726cd37aa1;hp=c730773aff702f9c1cbb4d79cad00932dd2f5036;hpb=2f1b948ea733e0ece1909a31987dc8f03044e851;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index c730773a..f3dec8b1 100644
--- 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};