postgres.git / summary / log / commit / refs

commit    f7ac005c70588b8bedbe5f1a91848e0d1c9b258d
Author:   Andrew Dunstan <andrew@dunslane.net>
Date:     Wed Apr 21 15:12:04 2021 +0000
First released in: 14.0, 9.6.22, 10.17, 11.12, 12.7, 13.3

    fix silly perl error in commit d064afc720


 src/test/perl/PostgresNode.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm
index 06237a9178b..2505645352e 100644
--- a/src/test/perl/PostgresNode.pm
+++ b/src/test/perl/PostgresNode.pm
@@ -1172,8 +1172,7 @@ sub get_free_port
 		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)
                : ())
 			{


[parent: b93130450606]