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 e9e81e88081916667537a5426b1337b6cc6922ca..19bedb1079ccab270add5ba89eeceebff72b263f 100644 (file)
--- 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;