- From: Ville Skytta <ville@hutz.w3.org>
- Date: Sat, 10 Apr 2004 14:07:18 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv15535/bin
Modified Files:
checklink
Log Message:
Don't mask LWP's default redirect_ok() functionality, remove some dead code.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 3.26
retrieving revision 3.27
diff -u -d -r3.26 -r3.27
--- checklink 9 Apr 2004 16:26:51 -0000 3.26
+++ checklink 10 Apr 2004 14:07:13 -0000 3.27
@@ -71,7 +71,7 @@
sub redirect_ok
{
- my ($self, $request) = @_;
+ my ($self, $request, $response) = @_;
if ($self->{Checklink_verbose_progress}) {
&W3C::LinkChecker::hprintf("\n%s %s ", $request->method(),$request->uri());
@@ -81,7 +81,7 @@
$self->{Redirects}{$self->{fetching}} = $request->uri();
$self->{fetching} = $request->uri();
- return ($request->method() eq 'POST') ? 0 : 1;
+ return $self->SUPER::redirect_ok($request, $response);
}
# -----------------------------------------------------------------------------
@@ -1016,7 +1016,6 @@
# Did we get a redirect?
if ($response->{OriginalCode} != $response->code()) {
$results{$uri}{location}{orig_message} = $response->{OriginalMessage};
- $results{$uri}{location}{redirected} = 1;
}
$results{$uri}{location}{success} = $response->is_success();
# Stores the authentication information
Received on Saturday, 10 April 2004 10:07:23 UTC