diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2017-09-25 09:54:23 +0100 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2017-09-25 09:54:23 +0100 |
| commit | 60dfa515ef51ddf3e702d92aee4fffb166ad4d38 (patch) | |
| tree | e9b2e58ecd2a005fd309e8201305cd7eb8ed8738 | |
| parent | f234c2a894707a55676b946c8a7108e2a395a22d (diff) | |
| download | perl-60dfa515ef51ddf3e702d92aee4fffb166ad4d38.tar.gz | |
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
| -rwxr-xr-x | Porting/Maintainers.pl | 2 | ||||
| -rw-r--r-- | cpan/File-Fetch/lib/File/Fetch.pm | 2 | ||||
| -rw-r--r-- | cpan/File-Fetch/t/01_File-Fetch.t | 9 |
3 files changed, 7 insertions, 6 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 1817c2971c..4dd14a7087 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -487,7 +487,7 @@ use File::Glob qw(:case); }, 'File::Fetch' => { - 'DISTRIBUTION' => 'BINGOS/File-Fetch-0.52.tar.gz', + 'DISTRIBUTION' => 'BINGOS/File-Fetch-0.54.tar.gz', 'FILES' => q[cpan/File-Fetch], }, 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]) { |