Update File-Fetch to CPAN version 1.04

  [DELTA]

1.04        Tue Jan 18 20:46:04 2022

* Resolve test warnings reported in GitHub issue #22
  relating to Github's deprecation and removal of git:// protocol

* Pointed various RFC links in docs to ietf.org

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 20c4386..02c15fa 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -505,7 +505,7 @@ use File::Glob qw(:case);
     },
 
     'File::Fetch' => {
     },
 
     'File::Fetch' => {

-        'DISTRIBUTION' => 'BINGOS/File-Fetch-1.02.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/File-Fetch-1.04.tar.gz',

         'FILES'        => q[cpan/File-Fetch],
     },
 
         'FILES'        => q[cpan/File-Fetch],
     },
 

diff --git a/cpan/File-Fetch/lib/File/Fetch.pm b/cpan/File-Fetch/lib/File/Fetch.pm
index f06a7f8..157f308 100644 (file)
--- 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
             ];
 
                 $FTP_PASSIVE $TIMEOUT $DEBUG $WARN $FORCEIPV4
             ];
 

-$VERSION        = '1.02';
+$VERSION        = '1.04';

 $VERSION        = eval $VERSION;    # avoid warnings with development releases
 $PREFER_BIN     = 0;                # XXX TODO implement
 $FROM_EMAIL     = 'File-Fetch@example.com';
 $VERSION        = eval $VERSION;    # avoid warnings with development releases
 $PREFER_BIN     = 0;                # XXX TODO implement
 $FROM_EMAIL     = 'File-Fetch@example.com';


@@ -359,7 +359,7 @@ sub _parse_uri {
     $href->{scheme} = $1;
 
     ### See rfc 1738 section 3.10
     $href->{scheme} = $1;
 
     ### See rfc 1738 section 3.10

-    ### http://www.faqs.org/rfcs/rfc1738.html
+    ### https://datatracker.ietf.org/doc/html/rfc1738#section-3.10

     ### And wikipedia for more on windows file:// urls
     ### http://en.wikipedia.org/wiki/File://
     if( $href->{scheme} eq 'file' ) {
     ### And wikipedia for more on windows file:// urls
     ### http://en.wikipedia.org/wiki/File://
     if( $href->{scheme} eq 'file' ) {


@@ -1315,7 +1315,7 @@ sub _fetch_fetch {
 
 ### use File::Copy for fetching file:// urls ###
 ###
 
 ### use File::Copy for fetching file:// urls ###
 ###

-### See section 3.10 of RFC 1738 (http://www.faqs.org/rfcs/rfc1738.html)
+### See section 3.10 of RFC 1738 (https://datatracker.ietf.org/doc/html/rfc1738#section-3.10)

 ### Also see wikipedia on file:// (http://en.wikipedia.org/wiki/File://)
 ###
 
 ### Also see wikipedia on file:// (http://en.wikipedia.org/wiki/File://)
 ###
 


@@ -1698,7 +1698,7 @@ the C<URI::Escape> module from CPAN, and pre-encode your URI before
 passing it to C<File::Fetch>. You can read about the details of URIs
 and URI encoding here:
 
 passing it to C<File::Fetch>. You can read about the details of URIs
 and URI encoding here:
 

-  http://www.faqs.org/rfcs/rfc2396.html
+L<https://datatracker.ietf.org/doc/html/rfc2396>

 
 =head1 TODO
 
 
 =head1 TODO
 

diff --git a/cpan/File-Fetch/t/01_File-Fetch.t b/cpan/File-Fetch/t/01_File-Fetch.t
index 35f5c3a..cdd9e50 100644 (file)
--- a/cpan/File-Fetch/t/01_File-Fetch.t
+++ b/cpan/File-Fetch/t/01_File-Fetch.t
@@ -235,7 +235,7 @@ for my $entry (@map) {
 }
 
 ### git:// tests ###
 }
 
 ### git:// tests ###

-{   my $uri = 'git://github.com/Perl-Toolchain-Gang/file-fetch.git';
+{   my $uri = 'https://github.com/Perl-Toolchain-Gang/file-fetch.git';

 
     for (qw[git]) {
         local $ENV{GIT_CONFIG_NOSYSTEM} = 1;
 
     for (qw[git]) {
         local $ENV{GIT_CONFIG_NOSYSTEM} = 1;