fix silly perl error in commit d064afc720

This commit is contained in:
Andrew Dunstan 2021-04-21 11:12:04 -04:00
parent d31ae92866
commit 574a1b8fb4

View File

@ -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)
: ())
{