W3C home > Mailing lists > Public > www-validator-cvs@w3.org > August 2010

link-checker commit: Avoid warning from invalid (non-numeric) recursion depth.

From: Mercurial notifier <nobody@w3.org>
Date: Thu, 05 Aug 2010 14:46:58 +0000
To: link-checker updates <www-validator-cvs@w3.org>
Message-Id: <E1Oh1ik-0005cy-V6@blinky.w3.org>
changeset:   76:225fc4e71397
user:        ville
date:        Tue Jun 01 19:18:33 2004 +0000
files:       bin/checklink
description:
Avoid warning from invalid (non-numeric) recursion depth.


diff -r 99749ec76f6e -r 225fc4e71397 bin/checklink
--- a/bin/checklink	Mon May 31 21:40:47 2004 +0000
+++ b/bin/checklink	Tue Jun 01 19:18:33 2004 +0000
@@ -5,7 +5,7 @@
 # (c) 1999-2004 World Wide Web Consortium
 # based on Renaud Bruyeron's checklink.pl
 #
-# $Id: checklink,v 3.46 2004-05-31 21:40:47 ot Exp $
+# $Id: checklink,v 3.47 2004-06-01 19:18:33 ville Exp $
 #
 # This program is licensed under the W3C(r) Software License:
 #       http://www.w3.org/Consortium/Legal/copyright-software
@@ -112,7 +112,7 @@
   $PACKAGE       = 'W3C Link Checker';
   $PROGRAM       = 'W3C-checklink';
   $VERSION       = '3.9.3-dev';
-  my ($cvsver)   = q$Revision: 3.46 $ =~ /(\d+[\d\.]*\.\d+)/;
+  my ($cvsver)   = q$Revision: 3.47 $ =~ /(\d+[\d\.]*\.\d+)/;
   $REVISION      = sprintf('version %s [%s] (c) 1999-2004 W3C',
                            $VERSION, $cvsver);
   $AGENT         = sprintf('%s/%s [%s] %s',
@@ -198,7 +198,7 @@
     Accept_Language   => $cmdline ? undef : $ENV{HTTP_ACCEPT_LANGUAGE},
     HTTP_Proxy        => undef,
     Hide_Same_Realm   => 0,
-    Depth             => 0,    # -1 means unlimited recursion.
+    Depth             => 0,    # < 0 means unlimited recursion.
     Sleep_Time        => 1,
     Max_Documents     => 150,  # For the online version.
     User              => undef,
@@ -316,8 +316,9 @@
   $Opts{Accept_Language} = undef if $query->param('no_accept_language');
 
   $Opts{Depth} = -1 if ($query->param('recursive') && $Opts{Depth} == 0);
-  if ($query->param('depth') && ($query->param('depth') != 0)) {
-    $Opts{Depth} = $query->param('depth');
+  if (my $depth = $query->param('depth')) {
+    # Ignore invalid depth silently for now.
+    $Opts{Depth} = $1 if ($depth =~ /(-?\d+)/);
   }
 
   # Save, clear or leave cookie as is.
Received on Thursday, 5 August 2010 14:47:06 UTC

This archive was generated by hypermail 2.3.1 : Wednesday, 7 January 2015 15:17:43 UTC