validator/httpd/cgi-bin check,1.656,1.657

• From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
• Date: Tue, 23 Jun 2009 17:59:51 +0000
• To: www-validator-cvs@w3.org
• Message-Id: <E1MJAHf-0007bG-4A@lionel-hutz.w3.org>

Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv29140/httpd/cgi-bin

Modified Files:
	check 
Log Message:
Require libwww-perl >= 5.802.

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.656
retrieving revision 1.657
diff -u -d -r1.656 -r1.657
--- check	4 Jun 2009 15:28:26 -0000	1.656
+++ check	23 Jun 2009 17:59:48 -0000	1.657
@@ -56,6 +56,7 @@
 use HTML::Parser         3.24 qw(); # Need 3.24 for $p->parse($code_ref)
 use HTML::Template       2.6  qw(); # Need 2.6 for path param, other things.
 use HTTP::Headers::Util       qw();
+use HTTP::Message        1.52 qw(); # Need 1.52 for decoded_content()
 use HTTP::Request             qw();
 use HTTP::Headers::Auth       qw(); # Needs to be imported after other HTTP::*.
 use SGML::Parser::OpenSP      qw();
@@ -914,8 +915,7 @@
     $File->{Templates}->{Error}->param(fatal_missing_checker  => "HTML5 Validator");
   }
   else {
-    my $content = $res->can('decoded_content') ?
-      $res->decoded_content(charset => 'none') : $res->content;
+    my $content = $res->decoded_content(charset => 'none');
     # and now we parse according to http://wiki.whatwg.org/wiki/Validator.nu_XML_Output
     # I wish we could use XML::LibXML::Reader here. but SHAME on those major
     # unix distributions still shipping with libxml2 2.6.16… 4 years after its release
@@ -1046,8 +1046,7 @@
     $File->{Templates}->{Error}->param(fatal_missing_checker  => "HTML5 Validator");
   }
   else {
-    my $content = $res->can('decoded_content') ?
-      $res->decoded_content(charset => 'none') : $res->content;
+    my $content = $res->decoded_content(charset => 'none');
     # and now we parse according to http://wiki.whatwg.org/wiki/Validator.nu_XML_Output
     # I wish we could use XML::LibXML::Reader here. but SHAME on those major
     # unix distributions still shipping with libxml2 2.6.16… 4 years after its release
@@ -1724,8 +1723,7 @@
                           scalar($res->request->uri),
                          );
 
-  my $content = $res->can('decoded_content') ?
-    $res->decoded_content(charset => 'none') : $res->content;
+  my $content = $res->decoded_content(charset => 'none');
 
   $File->{Bytes}           = $content;
   $File->{Mode}            = $mode;

Received on Tuesday, 23 June 2009 18:00:03 UTC