From 06558f49529553aecb6ad52a0470d63cb59d7df9 Mon Sep 17 00:00:00 2001
From: Noah Misch <noah@leadboat.com>
Date: Sat, 6 Apr 2024 09:27:55 -0700
Subject: [PATCH] Backport IPC::Run optimization to src/test/perl.

This one-liner makes the TAP portion of "make check-world" 7% faster on
a non-Windows machine.

Discussion: https://postgr.es/m/20240331050310.09@rfd.leadboat.com
---
 src/test/perl/PostgreSQL/Test/Utils.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/test/perl/PostgreSQL/Test/Utils.pm b/src/test/perl/PostgreSQL/Test/Utils.pm
index 42d5a50dc88..022b44ba22b 100644
--- a/src/test/perl/PostgreSQL/Test/Utils.pm
+++ b/src/test/perl/PostgreSQL/Test/Utils.pm
@@ -189,6 +189,11 @@ Set to true when running under MSYS2.
 
 INIT
 {
+	# See https://github.com/cpan-authors/IPC-Run/commit/fc9288c for how this
+	# reduces idle time.  Remove this when IPC::Run 20231003.0 is too old to
+	# matter (when all versions that matter provide the optimization).
+	$SIG{CHLD} = sub { }
+	  unless defined $SIG{CHLD};
 
 	# Return EPIPE instead of killing the process with SIGPIPE.  An affected
 	# test may still fail, but it's more likely to report useful facts.