From f7ac005c70588b8bedbe5f1a91848e0d1c9b258d Mon Sep 17 00:00:00 2001 From: Andrew Dunstan Date: Wed, 21 Apr 2021 11:12:04 -0400 Subject: [PATCH] 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) : ()) { -- 2.39.5