Upgrade File-Fetch from version 0.44 to 0.46

* Blacklist 'lftp' on DragonflyBSD

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 60e7d9a..de42441 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -497,7 +497,7 @@ use File::Glob qw(:case);
     },
 
     'File::Fetch' => {
-        'DISTRIBUTION' => 'BINGOS/File-Fetch-0.44.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/File-Fetch-0.46.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 0205e93..8d512a3 100644 (file)
--- a/cpan/File-Fetch/lib/File/Fetch.pm
+++ b/cpan/File-Fetch/lib/File/Fetch.pm
@@ -22,12 +22,13 @@ use vars    qw[ $VERBOSE $PREFER_BIN $FROM_EMAIL $USER_AGENT
                 $FTP_PASSIVE $TIMEOUT $DEBUG $WARN
             ];
 
-$VERSION        = '0.44';
+$VERSION        = '0.46';
 $VERSION        = eval $VERSION;    # avoid warnings with development releases
 $PREFER_BIN     = 0;                # XXX TODO implement
 $FROM_EMAIL     = 'File-Fetch@example.com';
 $USER_AGENT     = "File::Fetch/$VERSION";
 $BLACKLIST      = [qw|ftp|];
+push @$BLACKLIST, qw|lftp| if $^O eq 'dragonfly';
 $METHOD_FAIL    = { };
 $FTP_PASSIVE    = 1;
 $TIMEOUT        = 0;

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index ff07432..6f01e73 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -125,6 +125,12 @@ Avoids a warning about "undefined variable in user_agent" in some cases, and
 updates L<CGI::Cookie> documentation to reflect that "HttpOnly" is widely
 supported.
 
+=item *
+
+L<File::Fetch> has been upgraded from version 0.44 to 0.46.
+
+Blacklists "ftp" on DragonflyBSD.
+
 =back
 
 =head2 Removed Modules and Pragmata