X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCron.pm;h=c8b172735a2532b8e574c6c607c75922c305a2ee;hb=8e14149148baba63ce5ae2b95aacda8ab6dd0d87;hp=adeff2162d477618093ef22f9b6ef3c6e3e4877f;hpb=96f67f30b496aafcb4276f9fe9cf0fa9f572318b;p=spider.git

diff --git a/perl/DXCron.pm b/perl/DXCron.pm
index adeff216..c8b17273 100644
--- a/perl/DXCron.pm
+++ b/perl/DXCron.pm
@@ -311,7 +311,7 @@ sub spawn_cmd
 			 sub {
 				 my ($fc, $err, @res) = @_; 
 				 --$main::me->{_nospawn};
-				 delete $main::me->{_nospawn} if exists $main::me->{_nospawn} && $main::me->{_nospawn} <= 0;
+				 $main::me->{_nospawn} = 0 if exists $main::me->{_nospawn} && $main::me->{_nospawn} <= 0;
 				 if ($err) {
 					 my $s = "DXCron::spawn_cmd: error $err";
 					 dbg($s);