- 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