X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=308b1d90b987104618df84182a10399b6f94ea38;hb=6f9f47b53d1b6c2a52722b525695fa1c03ab1ed7;hp=5ce5203ddf43c90edeedcaf9538446f3490d0bdf;hpb=e03572bb51a1ab00ed6be9bc8286354fba91bfa4;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 5ce5203d..308b1d90 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -67,7 +67,7 @@ package main;
 
 @inqueue = ();					# the main input queue, an array of hashes
 $systime = 0;					# the time now (in seconds)
-$version = "1.31";				# the version no of the software
+$version = "1.34";				# the version no of the software
 $starttime = 0;                 # the starting time of the cluster   
 $lockfn = "cluster.lock";       # lock file name
       
@@ -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