Commit, thanks !
On 11/16/14 15:13, Mikolaj Kucharski wrote:
> 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 {
>
>
