Hi,
Upstream was fast and incorporated our patches, new version just
released to CPAN. All regress pass like before (+1 skipped test).
2014/11/17 (0.43)
* Sync OpenBSD patches from their Ports tree. thanks to kucharskim
https://github.com/kawanet/XML-TreePP/pull/3
* README.md added
Index: Makefile
===================================================================
RCS file: /cvs/ports/textproc/p5-XML-TreePP/Makefile,v
retrieving revision 1.3
diff -u -r1.3 Makefile
--- Makefile 16 Nov 2014 16:13:20 -0000 1.3
+++ Makefile 17 Nov 2014 09:37:24 -0000
@@ -2,7 +2,7 @@
COMMENT = pure Perl implementation for parsing/writing XML documents
-DISTNAME = XML-TreePP-0.42
+DISTNAME = XML-TreePP-0.43
CATEGORIES = textproc
CPAN_AUTHOR = KAWASAKI
Index: distinfo
===================================================================
RCS file: /cvs/ports/textproc/p5-XML-TreePP/distinfo,v
retrieving revision 1.2
diff -u -r1.2 distinfo
--- distinfo 16 Nov 2014 16:13:20 -0000 1.2
+++ distinfo 17 Nov 2014 09:37:24 -0000
@@ -1,2 +1,2 @@
-SHA256 (XML-TreePP-0.42.tar.gz) = JOwBKJocTzSisa+0KalMd34c9I5wM/2owow6FEDn9vQ=
-SIZE (XML-TreePP-0.42.tar.gz) = 89741
+SHA256 (XML-TreePP-0.43.tar.gz) = f74tZDCGAFmJSu7r911MrPG/jXt1KU64fY4VAvgb12A=
+SIZE (XML-TreePP-0.43.tar.gz) = 91382
Index: patches/patch-lib_XML_TreePP_pm
===================================================================
RCS file: patches/patch-lib_XML_TreePP_pm
diff -N patches/patch-lib_XML_TreePP_pm
--- patches/patch-lib_XML_TreePP_pm 16 Nov 2014 16:13:20 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,14 +0,0 @@
-$OpenBSD: patch-lib_XML_TreePP_pm,v 1.2 2014/11/16 16:13:20 benoit Exp $
-
-timeout of 10 seconds is way too low, stick with defaults
-
---- 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();
-- $ua->timeout(10);
- $ua->env_proxy();
- $ua->agent( $self->{__user_agent} ) if defined $self->{__user_agent};
- } else {
Index: patches/patch-t_09_http-lite_t
===================================================================
RCS file: patches/patch-t_09_http-lite_t
diff -N patches/patch-t_09_http-lite_t
--- patches/patch-t_09_http-lite_t 16 Nov 2014 16:13:20 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,19 +0,0 @@
-$OpenBSD: patch-t_09_http-lite_t,v 1.2 2014/11/16 16:13:20 benoit Exp $
-
-use.perl.org returns http 500, use different rss feed
-
---- 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 " );
-- my $url = "http://use.perl.org/index.rss";;
-+ 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->{"rss"}->{channel}->{link}, qr{^http://}, "$url link" );
- }
- # ----------------------------------------------------------------
- sub parsehttp_post {
Index: patches/patch-t_10_http-lwp_t
===================================================================
RCS file: patches/patch-t_10_http-lwp_t
diff -N patches/patch-t_10_http-lwp_t
--- patches/patch-t_10_http-lwp_t 16 Nov 2014 16:13:20 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,19 +0,0 @@
-$OpenBSD: patch-t_10_http-lwp_t,v 1.2 2014/11/16 16:13:20 benoit Exp $
-
-use.perl.org returns http 500, use different rss feed
-
---- 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 " );
-- my $url = "http://use.perl.org/index.rss";;
-+ 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->{"rss"}->{channel}->{link}, qr{^http://}, "$url link" );
- }
- # ----------------------------------------------------------------
- sub parsehttp_post {
--
best regards
q#
