From de6161942af879983173417d630b6327b50a423a Mon Sep 17 00:00:00 2001 From: djk Date: Mon, 25 Oct 1999 20:12:24 +0000 Subject: [PATCH] change time outs on selects --- Changes | 3 +++ perl/client.pl | 2 +- perl/cluster.pl | 2 +- perl/console.pl | 2 +- 4 files changed, 6 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index 3e28a37f..1138ef06 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,8 @@ 24Oct99======================================================================= 1. fixed announces so that nodes only get one of them (not two). +2. Altered the select timeouts to prevent apparent excessive CPU usage on +multiprocessor machines (or at least that is what seems to be the trouble +here). 22Oct99======================================================================= 1. allow filter CALLSIGNS to be in upper or lower case. 2. create the concept of input and output filters, input filters are of the diff --git a/perl/client.pl b/perl/client.pl index 37658764..a7185ab2 100755 --- a/perl/client.pl +++ b/perl/client.pl @@ -493,7 +493,7 @@ Msg->set_event_handler($stdin, "read" => \&rec_stdin); for (;;) { my $t; - Msg->event_loop(1, 0.010); + Msg->event_loop(1, 1); $t = time; if ($t > $lasttime) { if ($outqueue) { diff --git a/perl/cluster.pl b/perl/cluster.pl index d0ebbe8e..ceb099ca 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -368,7 +368,7 @@ print "orft we jolly well go ...\n"; dbg('chan', "DXSpider version $version started..."); for (;;) { my $timenow; - Msg->event_loop(1, 0.001); + Msg->event_loop(1, 0.1); $timenow = time; process_inqueue(); # read in lines from the input queue and despatch them diff --git a/perl/console.pl b/perl/console.pl index 8a1c8719..ceac24e2 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -426,7 +426,7 @@ Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin); for (;;) { my $t; - Msg->event_loop(1, 0.010); + Msg->event_loop(1, 1); $top->refresh() if $top->is_wintouched; $bot->refresh(); $t = time; -- 2.43.0