From f62f7f8ba8aa59de4f4ed8a19f0300b6804a0009 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Tue, 13 Mar 2001 22:37:49 +0000
Subject: [PATCH] change select timeout

---
 perl/Msg.pm     | 1 -
 perl/cluster.pl | 2 +-
 perl/console.pl | 2 +-
 3 files changed, 2 insertions(+), 3 deletions(-)

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];
-- 
2.43.0