checklink: disable Perl recursion warning

Checklink uses an inherently recursive algoritym, so Perl's warning about
deep recursion (when the call stack contains more than 100 calls) is not
helpful.  This patch disables the warning for the check_uri routine.

                    -Mike
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.116
diff -u -u -b -r4.116 checklink
--- checklink	22 Sep 2008 19:33:31 -0000	4.116
+++ checklink	30 Sep 2008 07:16:38 -0000
@@ -1093,6 +1114,10 @@
         }
       }
 
+      # This is an inherently recursive algoritym, 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 Tuesday, 30 September 2008 07:31:47 UTC