X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCron.pm;h=ba2005021439393519cbf96a08dae01247fc4adf;hb=4d3067793942b3f4518615906dde50db5b76464a;hp=c31f4a92edf3dd33e5f5fc4ca96b3ce6ac9f14f8;hpb=27854d917fc31b9f2dd184c24e6f38265a3a09e8;p=spider.git

diff --git a/perl/DXCron.pm b/perl/DXCron.pm
index c31f4a92..ba200502 100644
--- a/perl/DXCron.pm
+++ b/perl/DXCron.pm
@@ -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);