$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 = '';
# handle '*' values
if ($val eq '*') {
$ref->{$sort} = 0;
- return;
+ return '';
}
# handle comma delimited values
}
$ref->{$sort} = \@req;
- return;
+ return '';
}
# process the cronjobs