Improve M$ Windows compatibility

[spider.git] / perl / DXCron.pm

diff --git a/perl/DXCron.pm b/perl/DXCron.pm
index adeff2162d477618093ef22f9b6ef3c6e3e4877f..c8b172735a2532b8e574c6c607c75922c305a2ee 100644 (file)
--- 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);