X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCron.pm;h=5cccfc491d5bba66a0431986fe3cc38f4c1a5479;hb=a341775678db2fd0bdebbb6ae4d10e1e99157f9e;hp=d2a109332aa2a89206b72463ba27af618bb25849;hpb=b33cb7a3d3842fabb787105b89aa1094bf5372e0;p=spider.git

diff --git a/perl/DXCron.pm b/perl/DXCron.pm
index d2a10933..5cccfc49 100644
--- a/perl/DXCron.pm
+++ b/perl/DXCron.pm
@@ -72,7 +72,7 @@ sub cread
 		my ($min, $hour, $mday, $month, $wday, $cmd) = /^\s*(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(.+)$/o;
 		next unless defined $min;
 		my $ref = bless {};
-		my $err;
+		my $err = '';
 
 		if (defined $min && defined $hour && defined $cmd) { # it isn't all of them, but should be enough to tell if this is a real line
 			$err .= parse($ref, 'min', $min, 0, 60);
@@ -305,7 +305,6 @@ sub spawn_cmd
 				 }
 				 for (@res) {
 					 if (ref $chan) {
-						 dbg("send: $_");
 						 $chan->send($_);
 					 } elsif (isdbg('cron')) {
 						 dbg("$pkg::spawn_cmd: $_");
@@ -316,6 +315,7 @@ sub spawn_cmd
 				 diffms($pkg, "::spawn_cmd", $line, $t0, scalar @res) if isdbg('progress');
 			 }
 			);
+	return ();
 }
 
 # do an rcmd to another cluster from the crontab