aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrew Dunstan <andrew@dunslane.net>2021-04-21 11:12:04 -0400
committerAndrew Dunstan <andrew@dunslane.net>2021-04-21 11:16:01 -0400
commitf7ac005c70588b8bedbe5f1a91848e0d1c9b258d (patch)
tree6945c5a869cbc575a810ee753131c65d344d0f9c
parentb931304506064b7890c712e4c6d925da59f389d5 (diff)
downloadpostgresql-f7ac005c70588b8bedbe5f1a91848e0d1c9b258d.tar.gz
postgresql-f7ac005c70588b8bedbe5f1a91848e0d1c9b258d.zip
fix silly perl error in commit d064afc720
-rw-r--r--src/test/perl/PostgresNode.pm3
1 files changed, 1 insertions, 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)
: ())
{