From: Eric Wong <e@80x24.org>
Date: Mon, 25 Nov 2024 07:47:14 +0000 (+0000)
Subject: spawn: send_cmd: respect retries arg
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bbb592c1bfdad7a0166e158c1366ca95eb907e24;p=thirdparty%2Fpublic-inbox.git

spawn: send_cmd: respect retries arg

Unfortunately, this is hard to test but obvious the
5th arg needs to be used as it is in the pure Perl
and XS implementation.
---

diff --git a/lib/PublicInbox/Spawn.pm b/lib/PublicInbox/Spawn.pm
index e9e81e880..19bedb107 100644
--- a/lib/PublicInbox/Spawn.pm
+++ b/lib/PublicInbox/Spawn.pm
@@ -332,7 +332,7 @@ EOM
 		$ENV{PERL_INLINE_DIRECTORY} = $inline_dir;
 		%RLIMITS = rlimit_map();
 		*send_cmd4 = sub ($$$$;$) {
-			send_cmd4_($_[0], $_[1], $_[2], $_[3], 50);
+			send_cmd4_($_[0], $_[1], $_[2], $_[3], $_[4] // 50);
 		}
 	} else {
 		require PublicInbox::SpawnPP;