fix silly perl error in commit d064afc720

2021-04-21 11:12:04 -04:00 · 2021-04-21 11:12:04 -04:00 · e34adb2e69
parent d673905d89
commit e34adb2e69
1 changed files with 1 additions and 2 deletions
--- 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)
               : ())
 			{