r64354 - in /branches/upstream/libhtml-tree-perl/current: Changes META.yml lib/HTML/Element.pm lib/HTML/Parse.pm lib/HTML/Tree.pm lib/HTML/TreeBuilder.pm t/attributes.t
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Thu Oct 28 13:37:53 UTC 2010
Author: ansgar
Date: Thu Oct 28 13:37:42 2010
New Revision: 64354
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64354
Log:
[svn-upgrade] new version libhtml-tree-perl (4.1)
Modified:
branches/upstream/libhtml-tree-perl/current/Changes
branches/upstream/libhtml-tree-perl/current/META.yml
branches/upstream/libhtml-tree-perl/current/lib/HTML/Element.pm
branches/upstream/libhtml-tree-perl/current/lib/HTML/Parse.pm
branches/upstream/libhtml-tree-perl/current/lib/HTML/Tree.pm
branches/upstream/libhtml-tree-perl/current/lib/HTML/TreeBuilder.pm
branches/upstream/libhtml-tree-perl/current/t/attributes.t
Modified: branches/upstream/libhtml-tree-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-tree-perl/current/Changes?rev=64354&op=diff
==============================================================================
--- branches/upstream/libhtml-tree-perl/current/Changes (original)
+++ branches/upstream/libhtml-tree-perl/current/Changes Thu Oct 28 13:37:42 2010
@@ -1,4 +1,9 @@
Changelog for HTML-Tree
+4.1 Mon Oct 25 2010
+ [FIXES]
+ * '/' is a valid attribute (pull from tokuhirom) (RT #61809)
+ * Change check fo subclasses in as_HTML. (RT #61673)
+ * Fix ProhibitThreeArgumentOpen being triggered. (RT #61857)
4.0 Mon Sep 20 2010
[THINGS THAT MAY BREAK YOUR CODE OR TESTS]
Modified: branches/upstream/libhtml-tree-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-tree-perl/current/META.yml?rev=64354&op=diff
==============================================================================
--- branches/upstream/libhtml-tree-perl/current/META.yml (original)
+++ branches/upstream/libhtml-tree-perl/current/META.yml Thu Oct 28 13:37:42 2010
@@ -1,12 +1,12 @@
---
name: HTML-Tree
-version: 4.0
+version: 4.1
author:
- 'Jeff Fearn <Jeff.Fearn at gmail.com>'
abstract: build and scan parse-trees of HTML
license: perl
resources:
- license: ~
+ license: http://dev.perl.org/licenses/
requires:
HTML::Parser: 3.46
HTML::Tagset: 3.02
@@ -23,7 +23,7 @@
version: 1.16
HTML::Element:
file: lib/HTML/Element.pm
- version: 4.0
+ version: 4.1
HTML::Element::traverse:
file: lib/HTML/Element/traverse.pm
version: 0
@@ -32,10 +32,10 @@
version: 2.71
HTML::Tree:
file: lib/HTML/Tree.pm
- version: 4.0
+ version: 4.1
HTML::TreeBuilder:
file: lib/HTML/TreeBuilder.pm
- version: 4.0
+ version: 4.1
generated_by: Module::Build version 0.32
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
Modified: branches/upstream/libhtml-tree-perl/current/lib/HTML/Element.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-tree-perl/current/lib/HTML/Element.pm?rev=64354&op=diff
==============================================================================
--- branches/upstream/libhtml-tree-perl/current/lib/HTML/Element.pm (original)
+++ branches/upstream/libhtml-tree-perl/current/lib/HTML/Element.pm Thu Oct 28 13:37:42 2010
@@ -6,7 +6,7 @@
=head1 VERSION
-Version 4.0
+Version 4.1
=cut
@@ -17,7 +17,7 @@
use integer; # vroom vroom!
use vars qw( $VERSION );
-$VERSION = '4.0';
+$VERSION = '4.1';
# This contorls encoding entities on output.
# When set entities won't be re-encoded.
@@ -1554,8 +1554,8 @@
( $node, $start, $depth ) = @_;
if ( ref $node ) { # it's an element
- # detect bogus classes. RT #35948
- $node->isa( $self->element_class )
+ # detect bogus classes. RT #35948, #61673
+ $node->can('starttag')
or Carp::confess( "Object of class "
. ref($node)
. " cannot be processed by HTML::Element" );
@@ -1826,7 +1826,7 @@
foreach my $attr ( $node->all_attr_names() ) {
Carp::croak(
"$tag has an invalid attribute name '$attr'")
- unless ( $self->_valid_name($attr) );
+ unless ( $attr eq '/' || $self->_valid_name($attr) );
}
if ( $empty_element_map->{$tag}
Modified: branches/upstream/libhtml-tree-perl/current/lib/HTML/Parse.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-tree-perl/current/lib/HTML/Parse.pm?rev=64354&op=diff
==============================================================================
--- branches/upstream/libhtml-tree-perl/current/lib/HTML/Parse.pm (original)
+++ branches/upstream/libhtml-tree-perl/current/lib/HTML/Parse.pm Thu Oct 28 13:37:42 2010
@@ -1,4 +1,6 @@
package HTML::Parse;
+
+use 5.008;
=head1 NAME
Modified: branches/upstream/libhtml-tree-perl/current/lib/HTML/Tree.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-tree-perl/current/lib/HTML/Tree.pm?rev=64354&op=diff
==============================================================================
--- branches/upstream/libhtml-tree-perl/current/lib/HTML/Tree.pm (original)
+++ branches/upstream/libhtml-tree-perl/current/lib/HTML/Tree.pm Thu Oct 28 13:37:42 2010
@@ -6,7 +6,7 @@
=head1 VERSION
-4.0
+4.1
=cut
@@ -18,7 +18,7 @@
use HTML::TreeBuilder ();
use vars qw( $VERSION );
-$VERSION = '4.0';
+$VERSION = '4.1';
=head1 SYNOPSIS
Modified: branches/upstream/libhtml-tree-perl/current/lib/HTML/TreeBuilder.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-tree-perl/current/lib/HTML/TreeBuilder.pm?rev=64354&op=diff
==============================================================================
--- branches/upstream/libhtml-tree-perl/current/lib/HTML/TreeBuilder.pm (original)
+++ branches/upstream/libhtml-tree-perl/current/lib/HTML/TreeBuilder.pm Thu Oct 28 13:37:42 2010
@@ -5,7 +5,7 @@
use integer; # vroom vroom!
use Carp ();
use vars qw(@ISA $VERSION $DEBUG);
-$VERSION = '4.0';
+$VERSION = '4.1';
#---------------------------------------------------------------------------
# Make a 'DEBUG' constant...
Modified: branches/upstream/libhtml-tree-perl/current/t/attributes.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-tree-perl/current/t/attributes.t?rev=64354&op=diff
==============================================================================
--- branches/upstream/libhtml-tree-perl/current/t/attributes.t (original)
+++ branches/upstream/libhtml-tree-perl/current/t/attributes.t Thu Oct 28 13:37:42 2010
@@ -11,7 +11,7 @@
use warnings;
use strict;
-use Test::More tests => 2;
+use Test::More tests => 3;
use HTML::TreeBuilder;
my $tb = HTML::TreeBuilder->new();
@@ -33,5 +33,11 @@
'catch invalid atribute names'
);
+# xhtml
+my $xhtml = HTML::TreeBuilder->new_from_content(q{<img src="foo.gif" />});
+my $img = $xhtml->find_by_tag_name('img');
+like($img->as_XML(), qr{<img src="foo\.gif" />});
+$xhtml = $xhtml->delete;
+
exit;
More information about the Pkg-perl-cvs-commits
mailing list