change time outs on selects

[spider.git] / perl / client.pl

diff --git a/perl/client.pl b/perl/client.pl
index 376587645c8599abb15b2bb43ac82238afad2722..a7185ab208de387c0a58df593ca3c4597e2a5151 100755 (executable)
--- 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) {