release 1.5

[spider.git] / perl / DXCron.pm

diff --git a/perl/DXCron.pm b/perl/DXCron.pm
index c31f4a92edf3dd33e5f5fc4ca96b3ce6ac9f14f8..ba2005021439393519cbf96a08dae01247fc4adf 100644 (file)
--- 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);