X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=10dca5eb265c8bf08a030608d39fea7223f0032d;hb=96b4514864485b795ee2f6ca9baa8387f888b8a2;hp=51d1455b41eb3b35b01cc48e793a87ea0c1d43fd;hpb=61e7e8734559481ea454bb3facca88139e51addd;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 51d1455b..10dca5eb 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -10,7 +10,7 @@
 #
 #
 
-require 5.004;
+require 5.10;
 
 # make sure that modules are searched in the order local then perl
 BEGIN {
@@ -301,7 +301,7 @@ sub cease
 		$l->close_server;
 	}
 
-	LogDbg('cluster', "DXSpider V$version, build $subversion.$build (git: $gitversion) ended");
+	LogDbg('cluster', "DXSpider V$version, build $build (git: $gitversion) ended");
 	dbg("bye bye everyone - bye bye");
 	dbgclose();
 	Logclose();
@@ -445,7 +445,7 @@ DXXml::init();
 # banner
 my ($year) = (gmtime)[5];
 $year += 1900;
-LogDbg('cluster', "DXSpider V$version, build $subversion.$build (git: $gitversion) started");
+LogDbg('cluster', "DXSpider V$version, build $build (git: $gitversion) started");
 dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH");
 
 # load Prefixes
@@ -593,7 +593,7 @@ $script->run($main::me) if $script;
 
 my $main_loop = Mojo::IOLoop->recurring($idle_interval => \&idle_loop);
 
-Mojo::IOLoop->start;
+Mojo::IOLoop->start unless Mojo::IOLoop->is_running;
 
 cease(0);
 exit(0);