Hi,
This is based on update received off the list from Benoit Lecocq. I did
some additional white space changes and dropped removal of
TreePP.pm.orig via pre-configure. Personally I would prefer to have it
around for update-patches. I've also fixed 09_http-lite.t and
10_http-lwp.t regress tests. They all pass (one test file is skipped,
but it was like that before). Changes from upstream say:
2013/11/07 (0.42)
* add empty_element_tag_end option. thanks to Songmu
https://github.com/kawanet/XML-TreePP/pull/2
* ensure unicode transmitted proprely. thanks to xenoterracide
https://github.com/kawanet/XML-TreePP/pull/1
* it requires LWP 5.811 or later to use add_content_utf8 method in
HTTP::Message
* source repository is now on github
https://github.com/kawanet/XML-TreePP
Index: Makefile
===================================================================
RCS file: /cvs/ports/textproc/p5-XML-TreePP/Makefile,v
retrieving revision 1.2
diff -u -r1.2 Makefile
--- Makefile 11 Mar 2013 11:42:45 -0000 1.2
+++ Makefile 16 Nov 2014 14:10:17 -0000
@@ -2,10 +2,12 @@
COMMENT = pure Perl implementation for parsing/writing XML documents
-DISTNAME = XML-TreePP-0.41
+DISTNAME = XML-TreePP-0.42
CATEGORIES = textproc
CPAN_AUTHOR = KAWASAKI
+HOMEPAGE = https://github.com/kawanet/XML-TreePP
+
MAINTAINER = Mikolaj Kucharski <[email protected]>
# Perl
@@ -13,13 +15,13 @@
MODULES = cpan
-RUN_DEPENDS = p5-libwww-*|p5-HTTP-Lite-*:www/p5-libwww
+RUN_DEPENDS = p5-libwww-*|p5-HTTP-Lite-*:www/p5-libwww
TEST_DEPENDS = converters/p5-Jcode \
- devel/p5-Test-Pod \
- devel/p5-Tie-IxHash \
- www/p5-HTTP-Lite \
- www/p5-libwww
+ devel/p5-Test-Pod \
+ devel/p5-Tie-IxHash \
+ www/p5-HTTP-Lite \
+ www/p5-libwww
-TEST_FLAGS = MORE_TESTS=Yes
+TEST_FLAGS = MORE_TESTS=Yes
.include <bsd.port.mk>
Index: distinfo
===================================================================
RCS file: /cvs/ports/textproc/p5-XML-TreePP/distinfo,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 distinfo
--- distinfo 24 Jan 2012 00:25:56 -0000 1.1.1.1
+++ distinfo 16 Nov 2014 14:10:17 -0000
@@ -1,5 +1,2 @@
-MD5 (XML-TreePP-0.41.tar.gz) = PpmaxRkWPPPKtw0+6NQLNA==
-RMD160 (XML-TreePP-0.41.tar.gz) = qfikfmoseBS6Z40aw2r6txzYDtw=
-SHA1 (XML-TreePP-0.41.tar.gz) = yhZBPrewwCPQpjQ8cIYd5UTTvCs=
-SHA256 (XML-TreePP-0.41.tar.gz) = qoytZ/EO4FXKBmL44Sn86gMi+jsdqevVUNMJT+oNch4=
-SIZE (XML-TreePP-0.41.tar.gz) = 96333
+SHA256 (XML-TreePP-0.42.tar.gz) = JOwBKJocTzSisa+0KalMd34c9I5wM/2owow6FEDn9vQ=
+SIZE (XML-TreePP-0.42.tar.gz) = 89741
Index: patches/patch-lib_XML_TreePP_pm
===================================================================
RCS file: /cvs/ports/textproc/p5-XML-TreePP/patches/patch-lib_XML_TreePP_pm,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 patch-lib_XML_TreePP_pm
--- patches/patch-lib_XML_TreePP_pm 24 Jan 2012 00:25:56 -0000 1.1.1.1
+++ patches/patch-lib_XML_TreePP_pm 16 Nov 2014 14:10:17 -0000
@@ -2,9 +2,9 @@
timeout of 10 seconds is way too low, stick with defaults
---- lib/XML/TreePP.pm.orig Sun Oct 31 10:47:03 2010
-+++ lib/XML/TreePP.pm Sun Jan 16 14:40:59 2011
-@@ -627,7 +627,6 @@ sub parsehttp_lwp {
+--- lib/XML/TreePP.pm.orig Thu Nov 7 12:21:51 2013
++++ lib/XML/TreePP.pm Sun Nov 16 13:35:48 2014
+@@ -635,7 +635,6 @@ sub parsehttp_lwp {
my $ua = $self->{lwp_useragent} if exists $self->{lwp_useragent};
if ( ! ref $ua ) {
$ua = LWP::UserAgent->new();
Index: patches/patch-t_09_http-lite_t
===================================================================
RCS file: /cvs/ports/textproc/p5-XML-TreePP/patches/patch-t_09_http-lite_t,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 patch-t_09_http-lite_t
--- patches/patch-t_09_http-lite_t 24 Jan 2012 00:25:56 -0000 1.1.1.1
+++ patches/patch-t_09_http-lite_t 16 Nov 2014 14:10:17 -0000
@@ -2,9 +2,9 @@
use.perl.org returns http 500, use different rss feed
---- t/09_http-lite.t.orig Sat Nov 21 05:19:02 2009
-+++ t/09_http-lite.t Mon Jan 23 22:34:12 2012
-@@ -21,7 +21,7 @@ sub parsehttp_get {
+--- t/09_http-lite.t.orig Thu Nov 7 11:43:16 2013
++++ t/09_http-lite.t Sun Nov 16 13:47:39 2014
+@@ -21,10 +21,10 @@ sub parsehttp_get {
my $tpp = XML::TreePP->new();
my $name = ( $0 =~ m#([^/:\\]+)$# )[0];
$tpp->set( user_agent => "$name " );
@@ -12,4 +12,8 @@
+ my $url = "http://rss.slashdot.org/Slashdot/slashdot";;
my $tree = $tpp->parsehttp( GET => $url );
ok( ref $tree, $url );
- like( $tree->{"rdf:RDF"}->{channel}->{link}, qr{^http://}, "$url link" );
+- like( $tree->{"rdf:RDF"}->{channel}->{link}, qr{^http://}, "$url link" );
++ like( $tree->{"rss"}->{channel}->{link}, qr{^http://}, "$url link" );
+ }
+ # ----------------------------------------------------------------
+ sub parsehttp_post {
Index: patches/patch-t_10_http-lwp_t
===================================================================
RCS file: /cvs/ports/textproc/p5-XML-TreePP/patches/patch-t_10_http-lwp_t,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 patch-t_10_http-lwp_t
--- patches/patch-t_10_http-lwp_t 24 Jan 2012 00:25:56 -0000 1.1.1.1
+++ patches/patch-t_10_http-lwp_t 16 Nov 2014 14:10:17 -0000
@@ -2,9 +2,9 @@
use.perl.org returns http 500, use different rss feed
---- t/10_http-lwp.t.orig Sat Nov 21 05:19:02 2009
-+++ t/10_http-lwp.t Mon Jan 23 22:38:33 2012
-@@ -21,7 +21,7 @@ sub parsehttp_get {
+--- t/10_http-lwp.t.orig Thu Nov 7 11:43:16 2013
++++ t/10_http-lwp.t Sun Nov 16 13:48:10 2014
+@@ -21,10 +21,10 @@ sub parsehttp_get {
my $tpp = XML::TreePP->new();
my $name = ( $0 =~ m#([^/:\\]+)$# )[0];
$tpp->set( user_agent => "$name " );
@@ -12,4 +12,8 @@
+ my $url = "http://rss.slashdot.org/Slashdot/slashdot";;
my $tree = $tpp->parsehttp( GET => $url );
ok( ref $tree, $url );
- like( $tree->{"rdf:RDF"}->{channel}->{link}, qr{^http://}, "$url link" );
+- like( $tree->{"rdf:RDF"}->{channel}->{link}, qr{^http://}, "$url link" );
++ like( $tree->{"rss"}->{channel}->{link}, qr{^http://}, "$url link" );
+ }
+ # ----------------------------------------------------------------
+ sub parsehttp_post {
--
best regards
q#
