[libatteanx-endpoint-perl] 07/27: Remove HTML::HTML5::Parser from code

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag debian/0.002-1
in repository libatteanx-endpoint-perl.

commit 7b812fe8155d21c25a298939f02d1a2b36adc77d
Author: Kjetil Kjernsmo <kjetil at kjernsmo.net>
Date:   Sun Sep 10 01:00:02 2017 +0200

    Remove HTML::HTML5::Parser from code
---
 lib/AtteanX/Endpoint.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lib/AtteanX/Endpoint.pm b/lib/AtteanX/Endpoint.pm
index 3b97b50..3984512 100644
--- a/lib/AtteanX/Endpoint.pm
+++ b/lib/AtteanX/Endpoint.pm
@@ -144,13 +144,12 @@ package AtteanX::Endpoint {
 	use File::ShareDir qw(dist_dir);
 	use HTTP::Negotiate qw(choose);
 	use IO::Compress::Gzip qw(gzip);
-	use HTML::HTML5::Parser;
 	use HTML::HTML5::Writer qw(DOCTYPE_XHTML_RDFA);
 	use Carp qw(croak);
 	use Types::Standard qw(ConsumerOf CodeRef HashRef ArrayRef Str Int);
 # 	use IO::Handle;
 # 	use Digest::MD5 qw(md5_base64);
-# 	use XML::LibXML 1.70;
+ 	use XML::LibXML 1.70;
 # 	use RDF::RDFa::Generator 0.102;
 # 	use Hash::Merge::Simple qw/ merge /;
 # 	use Fcntl qw(:flock SEEK_END);
@@ -456,7 +455,7 @@ END
 			my $stype		= 'text/html';
 			my $dir			= $ENV{ATTEAN_ENDPOINT_SHAREDIR} || File::Spec->catdir((eval { dist_dir('AtteanX-Endpoint') } || 'share'), 'endpoint');
 			my $template	= File::Spec->catfile($dir, 'index.html');
-			my $parser		= HTML::HTML5::Parser->new;
+			my $parser		= XML::LibXML->new(validation => 0, suppress_errors => 1, no_network => 1, recover => 2);
 			my $doc			= $parser->parse_file( $template );
 # 			my $gen			= RDF::RDFa::Generator->new( style => 'HTML::Head');
 # 			$gen->inject_document($doc, $sdmodel);

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libatteanx-endpoint-perl.git