[perl.git] branch blead, updated. v5.27.4-28-g60dfa515ef

[Chris 'Bingos' Williams]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/60dfa515ef51ddf3e702d92aee4fffb166ad4d38?hp=f234c2a894707a55676b946c8a7108e2a395a22d>

- Log -----------------------------------------------------------------
commit 60dfa515ef51ddf3e702d92aee4fffb166ad4d38
Author: Chris 'BinGOs' Williams <ch...@bingosnet.co.uk>
Date:   Mon Sep 25 09:54:23 2017 +0100

    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
-----------------------------------------------------------------------

Summary of changes:
 Porting/Maintainers.pl            | 2 +-
 cpan/File-Fetch/lib/File/Fetch.pm | 2 +-
 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-fe...@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:pas...@httpbin.org/basic-auth/user/passwd',
     ) {
         for (qw[lwp httptiny wget curl lftp fetch lynx httplite iosock]) {

--
Perl5 Master Repository