perl/modules/W3C/LogValidator/lib/W3C/LogValidator LinkChecker.pm,1.1,1.2

Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator
In directory hutz:/tmp/cvs-serv29703

Modified Files:
	LinkChecker.pm 
Log Message:
default value for max_documents in case the config routine has not taken care of setting it

Index: LinkChecker.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/LinkChecker.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- LinkChecker.pm	1 Aug 2005 05:11:19 -0000	1.1
+++ LinkChecker.pm	8 Sep 2005 03:45:15 -0000	1.2
@@ -101,7 +101,8 @@
 	my $self = shift;
 	my $max_invalid = undef;
 	if (exists $config{MaxInvalid}) {$max_invalid = $config{MaxInvalid}}
-    my $max_documents = undef;
+	else {$max_invalid = 0}
+        my $max_documents = undef;
 	if (exists $config{MaxDocuments}) {$max_documents = $config{MaxDocuments}}
 	else {$max_documents = 0}	
 	print "Now Using the Link Checker module :\n" if $verbose;

Received on Thursday, 8 September 2005 03:45:20 UTC