- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Sun, 29 Jul 2007 13:35:37 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv13994
Modified Files:
checklink
Log Message:
Prefix redirect progress events with "->".
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.56
retrieving revision 4.57
diff -u -d -r4.56 -r4.57
--- checklink 29 Jul 2007 13:25:21 -0000 4.56
+++ checklink 29 Jul 2007 13:35:35 -0000 4.57
@@ -109,6 +109,9 @@
my ($self, $request, $response) = @_;
if (my $callback = $self->redirect_progress_callback()) {
+ # @@@ TODO: when an LWP internal robots.txt request gets redirected, this
+ # will a bit confusingly fire for it too. Would need a robust way to
+ # determine whether the request is such a LWP "internal robots.txt" one.
&$callback($request->method(), $request->uri());
}
@@ -1123,7 +1126,7 @@
}
# Tell the user agent if we want progress reports for redirects or not.
- $ua->redirect_progress_callback(sub { &hprintf("\n%s %s ", @_); })
+ $ua->redirect_progress_callback(sub { &hprintf("\n-> %s %s ", @_); })
if $verbose_progress;
# Do the query
Received on Sunday, 29 July 2007 13:35:46 UTC