X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCron.pm;h=12192891de1bba6939b8ade706e1feed6ca97940;hb=dd902a3e23aeb207178d9960f17b757262842ed6;hp=b0d4b1c6dc6609c158cd3568cd5ce2e168f9ce9b;hpb=677f9d4ae7355cb6e5d05c3782a39e9022647f5b;p=spider.git

diff --git a/perl/DXCron.pm b/perl/DXCron.pm
index b0d4b1c6..12192891 100644
--- a/perl/DXCron.pm
+++ b/perl/DXCron.pm
@@ -71,7 +71,7 @@ sub cread
 		my ($min, $hour, $mday, $month, $wday, $cmd) = /^\s*(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(.+)$/o;
 		next unless defined $min;
 		my $ref = bless {};
-		my $err;
+		my $err = '';
 
 		if (defined $min && defined $hour && defined $cmd) { # it isn't all of them, but should be enough to tell if this is a real line
 			$err .= parse($ref, 'min', $min, 0, 60);