change select timeout

[spider.git] / perl / console.pl

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