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);
}
for (@res) {
if (ref $chan) {
- dbg("send: $_");
$chan->send($_);
} elsif (isdbg('cron')) {
dbg("$pkg::spawn_cmd: $_");
diffms($pkg, "::spawn_cmd", $line, $t0, scalar @res) if isdbg('progress');
}
);
+ return ();
}
# do an rcmd to another cluster from the crontab