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 ...@@ -1344,8 +1344,7 @@ sub get_free_port
if ($found == 1) if ($found == 1)
{ {
foreach my $addr (qw(127.0.0.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) ? 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