X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCron.pm;h=c8b172735a2532b8e574c6c607c75922c305a2ee;hb=3f7f9d8e9e296c4598239f15b8014311d0ba7343;hp=adeff2162d477618093ef22f9b6ef3c6e3e4877f;hpb=5756741d9682667ae5b0442c4e6f609bd481b6eb;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);