if (!$pid) {
# in child, unset warnings, disable debugging and general clean up from us
$^W = 0;
-# do "$main::root/perl/Disable_debug.pl";
eval "{ package DB; sub DB {} }";
+ $SIG{HUP} = 'IGNORE';
alarm(0);
+ DXChannel::closeall();
$SIG{CHLD} = $SIG{TERM} = $SIG{INT} = $SIG{__WARN__} = 'DEFAULT';
exec $prog, $call, 'connect';
dbg('cron', "exec '$prog' failed $!");
} else {
dbg('cron', "can't fork for $prog $!");
}
+
+ # coordinate
+ sleep(1);
}
sub spawn
if (!$pid) {
# in child, unset warnings, disable debugging and general clean up from us
$^W = 0;
-# do "$main::root/perl/Disable_debug.pl";
eval "{ package DB; sub DB {} }";
+ $SIG{HUP} = 'IGNORE';
alarm(0);
+ DXChannel::closeall();
$SIG{CHLD} = $SIG{TERM} = $SIG{INT} = $SIG{__WARN__} = 'DEFAULT';
exec "$line";
dbg('cron', "exec '$line' failed $!");
} else {
dbg('cron', "can't fork for $line $!");
}
+
+ # coordinate
+ sleep(1);
}
1;
__END__