summaryrefslogtreecommitdiff
path: root/cpan/File-Fetch
diff options
context:
space:
mode:
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>2017-09-25 09:54:23 +0100
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>2017-09-25 09:54:23 +0100
commit60dfa515ef51ddf3e702d92aee4fffb166ad4d38 (patch)
treee9b2e58ecd2a005fd309e8201305cd7eb8ed8738 /cpan/File-Fetch
parentf234c2a894707a55676b946c8a7108e2a395a22d (diff)
downloadperl-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
Diffstat (limited to 'cpan/File-Fetch')
-rw-r--r--cpan/File-Fetch/lib/File/Fetch.pm2
-rw-r--r--cpan/File-Fetch/t/01_File-Fetch.t9
2 files changed, 6 insertions, 5 deletions
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]) {