Update to p5-XML-TreePP-0.43.
from Mikolaj Kucharski (maintainer)
This commit is contained in:
parent
23a8588c14
commit
7f06c174a8
@ -1,8 +1,8 @@
|
||||
# $OpenBSD: Makefile,v 1.3 2014/11/16 16:13:20 benoit Exp $
|
||||
# $OpenBSD: Makefile,v 1.4 2014/11/17 09:51:05 benoit Exp $
|
||||
|
||||
COMMENT = pure Perl implementation for parsing/writing XML documents
|
||||
|
||||
DISTNAME = XML-TreePP-0.42
|
||||
DISTNAME = XML-TreePP-0.43
|
||||
CATEGORIES = textproc
|
||||
CPAN_AUTHOR = KAWASAKI
|
||||
|
||||
|
@ -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
|
||||
|
@ -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 {
|
@ -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 {
|
@ -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 {
|
Loading…
Reference in New Issue
Block a user