- From: Ville Skytta <ville@dev.w3.org>
- Date: Sun, 11 Jul 2004 19:19:25 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv21091/bin
Modified Files:
checklink
Log Message:
Small comment clarifications related to the previous fix.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.2
retrieving revision 4.3
diff -u -d -r4.2 -r4.3
--- checklink 11 Jul 2004 19:14:46 -0000 4.2
+++ checklink 11 Jul 2004 19:19:23 -0000 4.3
@@ -1305,10 +1305,10 @@
sub check_validity ($$$\%\%)
{
- my ($testing, $uri, $in_recursion, $links, $redirects) = @_;
+ my ($testing, $uri, $want_links, $links, $redirects) = @_;
# $testing is the URI of the document checked
# $uri is the URI of the target that we are verifying
- # $in_recursion is > 0 if we're in recursive mode
+ # $want_links is true if we're interested in links in the target doc
# $links is a hash of the links in the documents checked
# $redirects is a map of the redirects encountered
@@ -1360,7 +1360,7 @@
}
# Do it then
$p = &parse_document($uri, $response->base(),
- $response->as_string(), 0, $in_recursion);
+ $response->as_string(), 0, $want_links);
} else {
# We already had the information
$p->{Anchors} = $results{$uri}{parsing}{Anchors};
Received on Sunday, 11 July 2004 15:19:25 UTC