From: minima <minima>
Date: Tue, 13 Mar 2001 22:37:49 +0000 (+0000)
Subject: change select timeout
X-Git-Tag: R_1_47~127
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=f62f7f8ba8aa59de4f4ed8a19f0300b6804a0009;p=spider.git

change select timeout
---

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};
diff --git a/perl/cluster.pl b/perl/cluster.pl
index fb48c1e0..554ba4ee 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -421,7 +421,7 @@ dbg('err', "orft we jolly well go ...");
 for (;;) {
 #	$DB::trace = 1;
 	
-	Msg->event_loop(25, 0.001);
+	Msg->event_loop(10, 0.010);
 	my $timenow = time;
 	process_inqueue();			# read in lines from the input queue and despatch them
 #	$DB::trace = 0;
diff --git a/perl/console.pl b/perl/console.pl
index aee1bc9b..e247d3c9 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -459,7 +459,7 @@ Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);
 my $lastmin = 0;
 for (;;) {
 	my $t;
-	Msg->event_loop(1, 0.1);
+	Msg->event_loop(10, 0.01);
 	$t = time;
 	if ($t > $lasttime) {
 		my ($min)= (gmtime($t))[1];