Restrict how many retries that lftp will attempt

httpbin.org is being a bit unreliable at the moment
and highlighted that lftp is like the little engine
that could and it will keep trying and trying. Added
restrictions to how many times it will retry.

Author: bingos

CHANGES

@@ -1,3 +1,10 @@
+1.06        Mon Apr 28 16:49:13 2025
+
+* httpbin.org is being a bit unreliable at the moment
+  and highlighted that lftp is like the little engine
+  that could and it will keep trying and trying. Added
+  restrictions to how many times it will retry.
+
 1.04        Tue Jan 18 20:46:04 2022
 
 * Resolve test warnings reported in GitHub issue #22

lib/File/Fetch.pm

@@ -23,7 +23,7 @@ use vars    qw[ $VERBOSE $PREFER_BIN $FROM_EMAIL $USER_AGENT
                 $FTP_PASSIVE $TIMEOUT $DEBUG $WARN $FORCEIPV4
             ];
 
-$VERSION        = '1.04';
+$VERSION        = '1.06';
 $VERSION        = eval $VERSION;    # avoid warnings with development releases
 $PREFER_BIN     = 0;                # XXX TODO implement
 $FROM_EMAIL     = '[email protected]';
@@ -979,6 +979,9 @@ sub _lftp_fetch {
     ### if a timeout is set, add it ###
     $str .= "set net:timeout $TIMEOUT;\n" if $TIMEOUT;
 
+    ### lftp can get stuck in a loop of retries without this
+    $str .= "set net:reconnect-interval-base 5;\nset net:max-retries 2;\n";
+
     ### run passive if specified ###
     $str .= "set ftp:passive-mode 1;\n" if $FTP_PASSIVE;
 

t/01_File-Fetch.t

@@ -19,6 +19,8 @@ $IPC::Cmd::DEBUG    = $IPC::Cmd::DEBUG      = 1 if $ARGV[0];
 
 $File::Fetch::FORCEIPV4 = $File::Fetch::FORCEIPV4 = 1;
 
+$File::Fetch::TIMOUT = $File::Fetch::TIMEOUT = 30;
+
 unless( $ENV{PERL_CORE} ) {
     warn qq[