perl/modules/W3C/LinkChecker/bin checklink,4.117,4.118

Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv23468

Modified Files:
	checklink 
Log Message:
Disable Perl's recursion warnings for recursive algorithm.


Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.117
retrieving revision 4.118
diff -u -d -r4.117 -r4.118
--- checklink	17 Oct 2008 04:33:59 -0000	4.117
+++ checklink	17 Oct 2008 04:36:19 -0000	4.118
@@ -1093,6 +1093,10 @@
         }
       }
 
+      # This is an inherently recursive algorithm, so Perl's warning is not
+      # helpful.  You may wish to comment this out when debugging, though.
+      no warnings 'recursion';
+
       if ($depth < 0) {
         &check_uri($params, $u, 0, -1, $cookie, $uri);
       } else {

Received on Friday, 17 October 2008 04:36:31 UTC