diff -Nru libhtml-html5-parser-perl-0.103/bin/html2xhtml libhtml-html5-parser-perl-0.107/bin/html2xhtml
--- libhtml-html5-parser-perl-0.103/bin/html2xhtml 1970-01-01 00:00:00.000000000 +0000
+++ libhtml-html5-parser-perl-0.107/bin/html2xhtml 2011-10-20 20:22:52.000000000 +0000
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+use 5.010;
+use HTML::HTML5::Parser;
+
+my $input = shift // '-';
+my $output = shift // '-';
+
+my $parser = HTML::HTML5::Parser->new;
+my $dom = ($input eq '-')
+ ? $parser->parse_string(do { local $/ = })
+ : $parser->parse_file($input);
+
+if ($output eq '-')
+{
+ print $dom->toString;
+}
+else
+{
+ open my($fh), '>:encoding(UTF-8)', $output;
+ print $fh $dom->toString;
+ close $fh;
+}
\ No newline at end of file
diff -Nru libhtml-html5-parser-perl-0.103/bin/html5debug libhtml-html5-parser-perl-0.107/bin/html5debug
--- libhtml-html5-parser-perl-0.103/bin/html5debug 1970-01-01 00:00:00.000000000 +0000
+++ libhtml-html5-parser-perl-0.107/bin/html5debug 2011-10-07 08:36:18.000000000 +0000
@@ -0,0 +1,87 @@
+#!/usr/bin/perl
+
+use Getopt::Long;
+use HTML::HTML5::Parser;
+
+my $output = $ENV{HTML_OUTPUT} || 'debug:json';
+my $help;
+GetOptions(
+ 'output|o=s' => \$output,
+ 'help|usage|h' => \$help,
+ );
+
+if ($help)
+{
+ my $name = $0;
+ print <new;
+my $h = join '', <>;
+my $hash;
+
+if ($output =~ /debug/i)
+{
+ load('XML::LibXML::Debugging');
+ $hash = $p->parse_string($h)->toDebuggingHash;
+}
+elsif ($output =~ /clark/i)
+{
+ load('XML::LibXML::Debugging');
+ print $p->parse_string($h)->toClarkML;
+}
+elsif ($output =~ /html/i)
+{
+ load('HTML::HTML5::Writer');
+ print HTML::HTML5::Writer->new->document($p->parse_string($h));
+}
+elsif ($output =~ /parser/i)
+{
+ $p->parse_string($h);
+ $hash = $p;
+}
+elsif ($output =~ /err/i)
+{
+ $p->parse_string($h);
+ print "$_\n" foreach $p->errors;
+}
+else
+{
+ print $p->parse_string($h)->toString;
+}
+
+if (defined $hash and $output =~ /json/)
+{
+ load('JSON');
+ print to_json($hash, {pretty=>1,canonical=>1});
+}
+elsif (defined $hash)
+{
+ load('Data::Dumper');
+ print Dumper($hash);
+}
diff -Nru libhtml-html5-parser-perl-0.103/Changes libhtml-html5-parser-perl-0.107/Changes
--- libhtml-html5-parser-perl-0.103/Changes 2011-02-09 14:22:19.000000000 +0000
+++ libhtml-html5-parser-perl-0.107/Changes 2011-10-20 20:28:41.000000000 +0000
@@ -1,21 +1,48 @@
-############################################################################
-## Changes for HTML::HTML5::Parser #########################################
-############################################################################
-
HTML-HTML5-Parser
=================
Created: 2009-11-26
-Home page:
+Home page:
Bug tracker:
Maintainer: Toby Inkster
-0.103 [2011-02-09]
+0.107 2011-10-20
+
+ - (Addition) html2xhtml now reads from STDIN by default.
+ - (Addition) html2xhtml can output to a file.
+ - (Bugfix) parse_file wasn't accepting relative file names
+
+0.106 2011-10-10
+
+ - (Bugfix) Tokenizer.pm was still trying to require NamedEntityList.pm.
+
+0.105 2011-10-07
+
+ - HTML::HTML5::Parser::Error overloads stringification.
+ - use HTML::HTML5::Entities
+ - (Addition) Bundle 'html5debug' script.
+ - (Packaging) Module::Package::RDF.
+
+0.104 2011-09-22
+
+ - (Update) Catch up to revision d81fcb920a1a3c351149cd66a64bf1b8ae14a172
+ (2011-08-21) upstream.
+ - (Addition) Some error handling stuff.
+ - (Addition) Support