X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXCron.pm;h=ba2005021439393519cbf96a08dae01247fc4adf;hp=c31f4a92edf3dd33e5f5fc4ca96b3ce6ac9f14f8;hb=b060a0a3ee72530aa3f10d453186a662b66d7efe;hpb=3d29b1a4d4aab997da2deff10470068601744530

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);