X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=1c1ba3c8581cac29b4b82d3ccb7e299a960231dd;hb=093ac03207bd4468fa89dc7438936b245a92cbe5;hp=5e4dd4d9efcc92880361e07a55bba4298c78a249;hpb=a3fd9341b7ce57dcc058b82cfba3f40f15631241;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 5e4dd4d9..1c1ba3c8 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -64,7 +64,7 @@ package main;
 
 @inqueue = ();					# the main input queue, an array of hashes
 $systime = 0;					# the time now (in seconds)
-$version = "1.23";				# the version no of the software
+$version = "1.24";				# the version no of the software
 $starttime = 0;                 # the starting time of the cluster   
 $lockfn = "cluster.lock";       # lock file name
       
@@ -165,6 +165,10 @@ sub cease
 	foreach $dxchan (DXChannel->get_all()) {
 		disconnect($dxchan) unless $dxchan == $DXProt::me;
 	}
+	Msg->event_loop(1, 0.05);
+	Msg->event_loop(1, 0.05);
+	Msg->event_loop(1, 0.05);
+	Msg->event_loop(1, 0.05);
 	Log('cluster', "DXSpider V$version stopped");
 	unlink $lockfn;
 	exit(0);