X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=ceb099ca7eb4f6b64977447e6a800d7c5be0c1e6;hb=de6161942af879983173417d630b6327b50a423a;hp=d0ebbe8e16f36d6cc4776e0297c7242ed8bdd5fc;hpb=77b4df8a7ed96c2385ae2b73f273dd3baf69a1ee;p=spider.git

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