From f62f7f8ba8aa59de4f4ed8a19f0300b6804a0009 Mon Sep 17 00:00:00 2001 From: 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