From 6c1335265b613ef4deda1f0d6140802a52970b7d Mon Sep 17 00:00:00 2001 From: Terrence Brannon Date: Tue, 22 Mar 2011 04:19:28 -0400 Subject: [PATCH] ->as_HTML behavior changed in HTML::Tree between 3.23 and 4.1... now 4.1 is required --- Makefile.PL | 2 +- lib/HTML/Element/Library.pm | 2 +- t/replace_content.t | 3 +-- t/set_child_content.t | 3 +-- t/wrap_content.t | 3 +-- 5 files changed, 5 insertions(+), 8 deletions(-) diff --git a/Makefile.PL b/Makefile.PL index 6831d28..27f6eb4 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -15,7 +15,7 @@ WriteMakefile HTML::FillInForm => 0, HTML::PrettyPrinter => 0.03, - HTML::Tree => 3.19, + HTML::Tree => 4.1, List::Rotation::Cycle => 1.003, List::MoreUtils => 0.09, diff --git a/lib/HTML/Element/Library.pm b/lib/HTML/Element/Library.pm index 3a666cd..dbbd62e 100644 --- a/lib/HTML/Element/Library.pm +++ b/lib/HTML/Element/Library.pm @@ -25,7 +25,7 @@ our @EXPORT = qw(); -our $VERSION = '4.2.c'; +our $VERSION = '4.3'; diff --git a/t/replace_content.t b/t/replace_content.t index f814599..40b0b7e 100644 --- a/t/replace_content.t +++ b/t/replace_content.t @@ -27,7 +27,6 @@ $t1 = HTML::Element->new_from_lol $t1->look_down('_tag' => 'body')->replace_content('all gone!'); -is( $t1->as_HTML, 'I like stuff!all gone! -', "replaced all of body"); +is( $t1->as_HTML, 'I like stuff!all gone!', "replaced all of body"); diff --git a/t/set_child_content.t b/t/set_child_content.t index dd6673a..231ce7a 100644 --- a/t/set_child_content.t +++ b/t/set_child_content.t @@ -28,7 +28,6 @@ $t1 = HTML::Element->new_from_lol #$t1->look_down('_tag' => 'body')->replace_content('all gone!'); $t1->set_child_content(id => 'corpus', 'all gone!'); -is( $t1->as_HTML, 'I like stuff!all gone! -', "replaced all of body"); +is( $t1->as_HTML, 'I like stuff!all gone!', "replaced all of body"); diff --git a/t/wrap_content.t b/t/wrap_content.t index d81abe8..976420e 100644 --- a/t/wrap_content.t +++ b/t/wrap_content.t @@ -33,7 +33,6 @@ my $bold = HTML::Element->new('b', id => 'wrapper'); my $W = $t1->look_down('id' => 'wrapme'); $W->wrap_content($bold); -is( $W->as_HTML, 'um, p < 4! -', "wrapped text"); +is( $W->as_HTML, 'um, p < 4!', "wrapped text"); -- 2.30.2