diff options
| author | Andrew Dunstan <andrew@dunslane.net> | 2021-04-21 11:12:04 -0400 |
|---|---|---|
| committer | Andrew Dunstan <andrew@dunslane.net> | 2021-04-21 11:15:54 -0400 |
| commit | 574a1b8fb42a9a74b84137a7600d561b4b2d48a4 (patch) | |
| tree | b2dd67880ad410935570978a801993338667fec6 | |
| parent | d31ae9286641b008bd5b100024d0ca4c20645386 (diff) | |
| download | postgresql-574a1b8fb42a9a74b84137a7600d561b4b2d48a4.tar.gz postgresql-574a1b8fb42a9a74b84137a7600d561b4b2d48a4.zip | |
fix silly perl error in commit d064afc720
| -rw-r--r-- | src/test/perl/PostgresNode.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm index f5a8325c999..addfb72adb2 100644 --- a/src/test/perl/PostgresNode.pm +++ b/src/test/perl/PostgresNode.pm @@ -1200,8 +1200,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) : ()) { |