fix silly perl error in commit d064afc720

diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm
index 6d69cf1d0e07b35e16d3e2e5f94fce8f033f12aa..d06a8319cc0457e70b3cfeb551283df4783eb052 100644 (file)
--- 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)
                : ())
                        {