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:17:29 -0400 |
| commit | e014d25deade08df082d2b37de45adb0c984f563 (patch) | |
| tree | de44031093bdd3d27cc89c49807bb1a10c21e00e /src/test/perl/PostgresNode.pm | |
| parent | 26ac261ee4033710cad44f7924d53753129b60c7 (diff) | |
| download | postgresql-e014d25deade08df082d2b37de45adb0c984f563.tar.gz postgresql-e014d25deade08df082d2b37de45adb0c984f563.zip | |
fix silly perl error in commit d064afc720
Diffstat (limited to 'src/test/perl/PostgresNode.pm')
| -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 8394c57d3f8..685dee6fab5 100644 --- a/src/test/perl/PostgresNode.pm +++ b/src/test/perl/PostgresNode.pm @@ -1344,8 +1344,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) : ()) { |