On 11/17/14 10:42, Mikolaj Kucharski wrote:
> 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
>
commit, thanks !
>
> 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 {
>
>
