W3C home > Mailing lists > Public > www-validator-cvs@w3.org > February 2008

perl/modules/W3C/LinkChecker/bin checklink,4.90,4.91

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Sun, 10 Feb 2008 18:10:34 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1JOGdO-0003j7-Ap@lionel-hutz.w3.org>

Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv14307

Modified Files:
	checklink 
Log Message:
Accept application/vnd.wap.xhtml+xml.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.90
retrieving revision 4.91
diff -u -d -r4.90 -r4.91
--- checklink	10 Feb 2008 13:29:33 -0000	4.90
+++ checklink	10 Feb 2008 18:10:31 -0000	4.91
@@ -254,9 +254,10 @@
     require Apache2::RequestUtil;
   } if MP2();
 
-  my @content_types = qw(application/xhtml+xml text/html);
+  my @content_types =
+    qw(application/xhtml+xml text/html application/vnd.wap.xhtml+xml);
   $Accept = join(', ', @content_types, '*/*;q=0.5');
-  (my $re = join('|', @content_types)) =~ s/\+/\\+/g;
+  my $re = join('|', map(quotemeta, @content_types));
   $ContentTypes = qr{\b(?:$re)\b}io;
 
   #
Received on Sunday, 10 February 2008 18:10:45 GMT

This archive was generated by hypermail 2.2.0+W3C-0.50 : Thursday, 26 April 2012 12:55:00 GMT