X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=ddcf721448582d18f1100ec363586cf677c511ee;hb=16c932699e360cd44811afc68894e55a1a128962;hp=a3e915a614ebb45e41686a7ef7162f1d4aff6738;hpb=06a6935d583a684869129350fed170d467ad8acc;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index a3e915a6..ddcf7214 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -591,7 +591,9 @@ $script->run($main::me) if $script;
 
 #open(DB::OUT, "|tee /tmp/aa");
 
-Mojo::IOLoop->start;
+my $main_loop = Mojo::IOLoop->recurring($idle_interval => \&idle_loop);
+
+Mojo::IOLoop->start unless Mojo::IOLoop->is_running;
 
 cease(0);
 exit(0);