From 60dfa515ef51ddf3e702d92aee4fffb166ad4d38 Mon Sep 17 00:00:00 2001 From: Chris 'BinGOs' Williams Date: Mon, 25 Sep 2017 09:54:23 +0100 Subject: Update File-Fetch to CPAN version 0.54 [DELTA] 0.54 Sun Sep 24 19:46:04 2017 * Switch test URL from www.cpan.org to httpbin.org --- cpan/File-Fetch/lib/File/Fetch.pm | 2 +- cpan/File-Fetch/t/01_File-Fetch.t | 9 +++++---- 2 files changed, 6 insertions(+), 5 deletions(-) (limited to 'cpan') diff --git a/cpan/File-Fetch/lib/File/Fetch.pm b/cpan/File-Fetch/lib/File/Fetch.pm index acfa442841..c0568b33c7 100644 --- a/cpan/File-Fetch/lib/File/Fetch.pm +++ b/cpan/File-Fetch/lib/File/Fetch.pm @@ -22,7 +22,7 @@ use vars qw[ $VERBOSE $PREFER_BIN $FROM_EMAIL $USER_AGENT $FTP_PASSIVE $TIMEOUT $DEBUG $WARN $FORCEIPV4 ]; -$VERSION = '0.52'; +$VERSION = '0.54'; $VERSION = eval $VERSION; # avoid warnings with development releases $PREFER_BIN = 0; # XXX TODO implement $FROM_EMAIL = 'File-Fetch@example.com'; diff --git a/cpan/File-Fetch/t/01_File-Fetch.t b/cpan/File-Fetch/t/01_File-Fetch.t index 379ada9ebe..35f5c3ac26 100644 --- a/cpan/File-Fetch/t/01_File-Fetch.t +++ b/cpan/File-Fetch/t/01_File-Fetch.t @@ -195,14 +195,15 @@ for my $entry (@map) { ### Heuristics { require IO::Socket::INET; - my $sock = IO::Socket::INET->new( PeerAddr => 'www.cpan.org', PeerPort => 80, Timeout => 20 ) + my $sock = IO::Socket::INET->new( PeerAddr => 'httpbin.org', PeerPort => 80, Timeout => 20 ) or $heuristics{http} = 0; } ### http:// tests ### -{ for my $uri ( 'http://www.cpan.org/index.html', - 'http://www.cpan.org/index.html?q=1', - 'http://www.cpan.org/index.html?q=1&y=2', +{ for my $uri ( 'http://httpbin.org/html', + 'http://httpbin.org/response-headers?q=1', + 'http://httpbin.org/response-headers?q=1&y=2', + #'http://www.cpan.org/index.html?q=1&y=2', #'http://user:passwd@httpbin.org/basic-auth/user/passwd', ) { for (qw[lwp httptiny wget curl lftp fetch lynx httplite iosock]) { -- cgit v1.2.1