- From: Ville Skytta <ville@dev.w3.org>
- Date: Tue, 01 Jun 2004 19:18:35 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin In directory hutz:/tmp/cvs-serv29380 Modified Files: checklink Log Message: Avoid warning from invalid (non-numeric) recursion depth. Index: checklink =================================================================== RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v retrieving revision 3.46 retrieving revision 3.47 diff -u -d -r3.46 -r3.47 --- checklink 31 May 2004 21:40:47 -0000 3.46 +++ checklink 1 Jun 2004 19:18:33 -0000 3.47 @@ -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 Tuesday, 1 June 2004 15:18:35 UTC