- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Sat, 25 Oct 2008 19:27:12 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv6184
Modified Files:
checklink
Log Message:
If running LWP >= 5.814, set Accept-Encoding in requests to what LWP can decode.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.119
retrieving revision 4.120
diff -u -d -r4.119 -r4.120
--- checklink 25 Oct 2008 19:22:46 -0000 4.119
+++ checklink 25 Oct 2008 19:27:10 -0000 4.120
@@ -1274,9 +1274,13 @@
&hprintf("%s %s ", $method, $uri) if $verbose_progress;
my $request = new HTTP::Request($method, $uri);
+
$request->header('Accept-Language' => $Opts{Accept_Language})
if $Opts{Accept_Language};
$request->header('Accept', $Accept);
+ # accept_decodable() was added in LWP 5.814
+ $request->accept_decodable() if $request->can('accept_decodable');
+
# Are we providing authentication info?
if ($auth && $request->url()->host() =~ $Opts{Trusted}) {
if (defined($ENV{HTTP_AUTHORIZATION})) {
Received on Saturday, 25 October 2008 19:27:21 UTC