Commit e014d25d authored by Andrew Dunstan's avatar Andrew Dunstan

fix silly perl error in commit d064afc7

parent 26ac261e
......@@ -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)
: ())
{
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment