From: Peter Eisentraut <peter_e@gmx.net>
Date: Thu, 11 Sep 2014 00:39:28 +0000 (-0400)
Subject: Handle old versions of Test::More
X-Git-Tag: REL9_5_ALPHA1~1486
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=75717ce8f0cdca6a6778d0a9a6ef6d3196b9e483;p=postgresql

Handle old versions of Test::More

Really old versions of Test::More don't support subplans, so skip the
tests in that case.
---

diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm
index 899844baf7..545b2f3e50 100644
--- a/src/test/perl/TestLib.pm
+++ b/src/test/perl/TestLib.pm
@@ -36,7 +36,14 @@ BEGIN
 	} or do
 	{
 		plan skip_all => "IPC::Run not available";
-	  }
+	};
+
+	eval {
+		Test::More->VERSION('0.93_01');
+	} or do
+	{
+		plan skip_all => "version of Test::More is too old to support subplans";
+	};
 }
 
 # Set to untranslated messages, to be able to compare program output