You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
24 lines
698 B
24 lines
698 B
Index: vcheck |
|
--- vcheck.orig 2002-03-01 10:14:08.000000000 +0100 |
|
+++ vcheck 2010-04-15 13:07:26.000000000 +0200 |
|
@@ -1434,7 +1434,9 @@ |
|
|
|
sub read_url($;$$) # &read_url $url [$outfile [$referrer]] |
|
{ |
|
+ no warnings 'deprecated'; |
|
local($i, $t) = (1, time); |
|
+ local($isftp) = (@_->[0] =~ m|^ftp://|i); |
|
|
|
sub meter($$$) |
|
{ |
|
@@ -1460,7 +1462,9 @@ |
|
$xfersum += length $_; |
|
$_ |
|
} else { |
|
- local $_ = $ua->request($req); |
|
+ local $_; |
|
+ delete $ENV{FTP_PASSIVE}; $_ = $ua->request($req); |
|
+ $ENV{FTP_PASSIVE}=1; $_ = $ua->request($req) if ($isftp and $_->{_headers}->{content-length} == 0); |
|
$xfersum += length($_->headers) + length $_->content; |
|
$_->content |
|
}
|
|
|