my $fn = "$main::cmd/crontab";
-my $localfn = "$main::local_cmd/crontab";
+my $localfn = "$main::localcmd/crontab";
# cron initialisation / reading in cronjobs
sub init
next if /^\s*#/o or /^\s*$/o;
my ($min, $hour, $mday, $month, $wday, $cmd) = /^\s*(\w+)\s+(\w+)\s+(\w+)\s+(\w+)\s+(\w+)\s+(.+)$/o;
next if !$min;
- my $ref = new();
+ my $ref = bless {};
my $err;
$err |= parse($ref, 'min', $min, 0, 60);