X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCron.pm;h=961fa3a60df61c6aab1a096c16ef8412ba8e2806;hb=bc6fc0966a8b720f71928507656768d24ddfef9f;hp=c31f4a92edf3dd33e5f5fc4ca96b3ce6ac9f14f8;hpb=27854d917fc31b9f2dd184c24e6f38265a3a09e8;p=spider.git

diff --git a/perl/DXCron.pm b/perl/DXCron.pm
index c31f4a92..961fa3a6 100644
--- a/perl/DXCron.pm
+++ b/perl/DXCron.pm
@@ -25,7 +25,7 @@ $lasttime = 0;
 
 
 my $fn = "$main::cmd/crontab";
-my $localfn = "$main::local_cmd/crontab";
+my $localfn = "$main::localcmd/crontab";
 
 # cron initialisation / reading in cronjobs
 sub init
@@ -61,7 +61,7 @@ sub cread
 		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);