- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Fri, 30 Jan 2009 19:57:12 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv30968
Modified Files:
checklink
Log Message:
Lower q-value of application/vnd.wap.xhtml+xml in Accept header to less than 1.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.135
retrieving revision 4.136
diff -u -d -r4.135 -r4.136
--- checklink 10 Jan 2009 21:27:38 -0000 4.135
+++ checklink 30 Jan 2009 19:57:10 -0000 4.136
@@ -281,9 +281,9 @@
} if MP2();
my @content_types =
- qw(application/xhtml+xml text/html application/vnd.wap.xhtml+xml);
+ qw(application/xhtml+xml text/html application/vnd.wap.xhtml+xml;q=0.6);
$Accept = join(', ', @content_types, '*/*;q=0.5');
- my $re = join('|', map(quotemeta, @content_types));
+ my $re = join('|', map { s/;.*// ; quotemeta } @content_types);
$ContentTypes = qr{\b(?:$re)\b}io;
#
Received on Friday, 30 January 2009 19:57:22 UTC