From 23e7b38bfe396f919fdb66057174d29e17086418 Mon Sep 17 00:00:00 2001
From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Thu, 12 May 2022 15:17:30 -0400
Subject: Pre-beta mechanical code beautification.

Run pgindent, pgperltidy, and reformat-dat-files.
I manually fixed a couple of comments that pgindent uglified.
---
 src/test/perl/PostgreSQL/Test/Utils.pm | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

(limited to 'src/test/perl/PostgreSQL/Test/Utils.pm')

diff --git a/src/test/perl/PostgreSQL/Test/Utils.pm b/src/test/perl/PostgreSQL/Test/Utils.pm
index dca1b3b17c..1ca2cc5917 100644
--- a/src/test/perl/PostgreSQL/Test/Utils.pm
+++ b/src/test/perl/PostgreSQL/Test/Utils.pm
@@ -142,14 +142,15 @@ BEGIN
 	# Must be set early
 	$windows_os = $Config{osname} eq 'MSWin32' || $Config{osname} eq 'msys';
 	# Check if this environment is MSYS2.
-	$is_msys2 = $windows_os && -x '/usr/bin/uname'  &&
-	  `uname -or` =~ /^[2-9].*Msys/;
+	$is_msys2 =
+	     $windows_os
+	  && -x '/usr/bin/uname'
+	  && `uname -or` =~ /^[2-9].*Msys/;
 
 	if ($windows_os)
 	{
 		require Win32API::File;
-		Win32API::File->import(
-			qw(createFile OsFHandleOpen CloseHandle));
+		Win32API::File->import(qw(createFile OsFHandleOpen CloseHandle));
 	}
 
 	# Specifies whether to use Unix sockets for test setups.  On
@@ -428,12 +429,16 @@ sub pump_until
 		last if $$stream =~ /$until/;
 		if ($timeout->is_expired)
 		{
-			diag("pump_until: timeout expired when searching for \"$until\" with stream: \"$$stream\"");
+			diag(
+				"pump_until: timeout expired when searching for \"$until\" with stream: \"$$stream\""
+			);
 			return 0;
 		}
 		if (not $proc->pumpable())
 		{
-			diag("pump_until: process terminated unexpectedly when searching for \"$until\" with stream: \"$$stream\"");
+			diag(
+				"pump_until: process terminated unexpectedly when searching for \"$until\" with stream: \"$$stream\""
+			);
 			return 0;
 		}
 		$proc->pump();
-- 
cgit v1.2.1