|
|
|
|
@ -1,16 +1,17 @@
|
|
|
|
|
Feature: retry failed FTP URLs using passive mode
|
|
|
|
|
|
|
|
|
|
--- vcheck.orig 2005-03-20 20:05:19 +0100
|
|
|
|
|
+++ vcheck 2005-08-09 18:05:06 +0200
|
|
|
|
|
@@ -1435,6 +1436,7 @@
|
|
|
|
|
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 +1463,9 @@
|
|
|
|
|
@@ -1460,7 +1462,9 @@
|
|
|
|
|
$xfersum += length $_;
|
|
|
|
|
$_
|
|
|
|
|
} else {
|
|
|
|
|
|