mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix silly perl error in commit d064afc720

Browse Source
This commit is contained in:
Andrew Dunstan 2021-04-21 11:12:04 -04:00
parent d31ae92866
commit 574a1b8fb4
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/test/perl/PostgresNode.pm
View File

@ -1200,8 +1200,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)
: ()) : ())
{ {