projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
a line to bump the build no up
[spider.git]
/
perl
/
DXCron.pm
diff --git
a/perl/DXCron.pm
b/perl/DXCron.pm
index 2a02bfd36f75bb340896dbf103637ca27a6c10d1..4cfabc0eb07ade4c866ce8a1eded6296299b231d 100644
(file)
--- a/
perl/DXCron.pm
+++ b/
perl/DXCron.pm
@@
-68,7
+68,7
@@
sub cread
$line++;
chomp $l;
next if $l =~ /^\s*#/o or $l =~ /^\s*$/o;
$line++;
chomp $l;
next if $l =~ /^\s*#/o or $l =~ /^\s*$/o;
- my ($min, $hour, $mday, $month, $wday, $cmd) = $l =~ /^\s*(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(.+)$/
o
;
+ my ($min, $hour, $mday, $month, $wday, $cmd) = $l =~ /^\s*(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(.+)$/;
next unless defined $min;
my $ref = bless {};
my $err = '';
next unless defined $min;
my $ref = bless {};
my $err = '';
@@
-110,7
+110,7
@@
sub parse
# handle '*' values
if ($val eq '*') {
$ref->{$sort} = 0;
# handle '*' values
if ($val eq '*') {
$ref->{$sort} = 0;
- return;
+ return
''
;
}
# handle comma delimited values
}
# handle comma delimited values
@@
-131,7
+131,7
@@
sub parse
}
$ref->{$sort} = \@req;
}
$ref->{$sort} = \@req;
- return;
+ return
''
;
}
# process the cronjobs
}
# process the cronjobs
@@
-159,7
+159,7
@@
sub process
if ($cron->{cmd}) {
dbg("cron: $min $hour $mday $mon $wday -> doing '$cron->{cmd}'") if isdbg('cron');
if ($cron->{cmd}) {
dbg("cron: $min $hour $mday $mon $wday -> doing '$cron->{cmd}'") if isdbg('cron');
- eval
"$cron->{cmd}"
;
+ eval
$cron->{cmd}
;
dbg("cron: cmd error $@") if $@ && isdbg('cron');
}
}
dbg("cron: cmd error $@") if $@ && isdbg('cron');
}
}