diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2022-01-11 12:21:27 +0000 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2022-01-11 12:21:27 +0000 |
| commit | 79314061206e91d12ed1d2ee0915c80b7375f8b8 (patch) | |
| tree | a99af2e7fdc8067d1fc85f9a11e2cd2262b6e6fd /cpan/File-Fetch | |
| parent | b52ea70ff5094d28a2a26a03758de45057d8a4a1 (diff) | |
| download | perl-79314061206e91d12ed1d2ee0915c80b7375f8b8.tar.gz | |
Update File-Fetch to CPAN version 1.02
[DELTA]
1.02 Fri Jan 7 14:44:34 2022
* wget: use --passive-ftp switch only for ftp scheme
Diffstat (limited to 'cpan/File-Fetch')
| -rw-r--r-- | cpan/File-Fetch/lib/File/Fetch.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cpan/File-Fetch/lib/File/Fetch.pm b/cpan/File-Fetch/lib/File/Fetch.pm index 76c641d2e7..f06a7f8540 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 = '1.00'; +$VERSION = '1.02'; $VERSION = eval $VERSION; # avoid warnings with development releases $PREFER_BIN = 0; # XXX TODO implement $FROM_EMAIL = 'File-Fetch@example.com'; @@ -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; |