From: Andrew Dunstan <andrew@dunslane.net>
Date: Wed, 21 Apr 2021 15:12:04 +0000 (-0400)
Subject: fix silly perl error in commit d064afc720
X-Git-Tag: REL9_6_22~15
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=6cb7dcdb03d76f93411e0e810aba13b6fe4c9a43;p=thirdparty%2Fpostgresql.git

fix silly perl error in commit d064afc720
---

diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm
index 0ed0114a99b..377b8a1514d 100644
--- a/src/test/perl/PostgresNode.pm
+++ b/src/test/perl/PostgresNode.pm
@@ -992,8 +992,7 @@ sub get_new_node
 		if ($found == 1)
 		{
 			foreach my $addr (qw(127.0.0.1),
-               $use_tcp ? qw(127.0.0.2 127.0.0.3 0.0.0.0) : ())
-               $use_tcp && $TestLib::windows_os
+               ($use_tcp && $TestLib::windows_os)
                ? qw(127.0.0.2 127.0.0.3 0.0.0.0)
                : ())
 			{