change select timeout

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};

diff --git a/perl/cluster.pl b/perl/cluster.pl
index fb48c1e005b64b133f35169371347945b4361c26..554ba4ee7ae0d82f5ef9c1a18dc1a7846c976f0e 100755 (executable)
--- 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 aee1bc9ba485253b28b67eba16885602473fc25d..e247d3c96791ebde87b35945124e89455f6fb9d2 100755 (executable)
--- 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];