diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/File/Fetch.pm | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/File/Fetch.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/File/Fetch.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Fetch.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Fetch.pm index 76c641d2e7..157f308ade 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Fetch.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/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 = '1.00'; +$VERSION = '1.04'; $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 - ### 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' ) { @@ -906,7 +906,7 @@ sub _wget_fetch { push(@$cmd, '--timeout=' . $TIMEOUT) if $TIMEOUT; ### run passive if specified ### - push @$cmd, '--passive-ftp' if $FTP_PASSIVE; + push @$cmd, '--passive-ftp' if $self->scheme eq 'ftp' && $FTP_PASSIVE; ### set the output document, add the uri ### push @$cmd, '--output-document', $to, $self->uri; @@ -1315,7 +1315,7 @@ sub _fetch_fetch { ### 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://) ### @@ -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: - http://www.faqs.org/rfcs/rfc2396.html +L<https://datatracker.ietf.org/doc/html/rfc2396> =head1 TODO |