From accf5a9a17f7910e4d119f915b022296c348e2a1 Mon Sep 17 00:00:00 2001
From: Todd Strader <todd.strader@gmail.com>
Date: Tue, 19 May 2020 14:31:13 -0400
Subject: [PATCH] Check if Parallel::Forker is new enough (#2343)

---
 test_regress/driver.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/test_regress/driver.pl b/test_regress/driver.pl
index 81df6df4d..17e96ccd1 100755
--- a/test_regress/driver.pl
+++ b/test_regress/driver.pl
@@ -28,6 +28,11 @@ $::Have_Forker = 0;
 
 eval "use Parallel::Forker; \$Fork=Parallel::Forker->new(use_sig_child=>1); \$::Have_Forker=1;";
 $Fork = Forker->new(use_sig_child=>1) if !$Fork;
+my $forker_Min_Version = 1.258;
+if ($::Have_Forker && $Parallel::Forker::VERSION < $forker_Min_Version) {
+    print STDERR "driver.pl: Parallel::Forker is older than $forker_Min_Version, suggest 'cpan install Parallel::Forker'\n";
+    $::Have_Forker = 0;
+}
 $SIG{CHLD} = sub { $Fork->sig_child() if $Fork; };
 $SIG{TERM} = sub { $Fork->kill_tree_all('TERM') if $Fork; die "Quitting...\n"; };