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:16:06 -0400 |
| commit | e34adb2e6960ba8e885797a413620b344f468933 (patch) | |
| tree | 3e71663b684d3565b34f0d805bb5f823601b3ac7 | |
| parent | d673905d8951b4d8d52b91f07c5fa61e404489f6 (diff) | |
| download | postgresql-e34adb2e6960ba8e885797a413620b344f468933.tar.gz postgresql-e34adb2e6960ba8e885797a413620b344f468933.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 6d69cf1d0e0..d06a8319cc0 100644 --- a/src/test/perl/PostgresNode.pm +++ b/src/test/perl/PostgresNode.pm @@ -1123,8 +1123,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) : ()) { |