Commit4e3682c

committed

use standard port, if available

1 parent7b1e095 commit4e3682cCopy full SHA for 4e3682c

File tree

-12

lines changed

-12

lines changed

Lines changed: 4 additions & 12 deletions

Original file line number	Diff line number	Diff line change
`@@ -7,32 +7,24 @@ use PostgresNode;`
`7`	`7`	`use TestLib;`
`8`	`8`	`use Test::More;`
`9`	`9`	`use Cwd;`
`10`		`-use List::Util;`
`11`	`10`
`12`		`-my%allocated_ports =();`
	`11`	`+my$max_port =5431;`
`13`	`12`	`suballocate_ports`
`14`	`13`	`{`
`15`	`14`	`my@allocated_now = ();`
`16`	`15`	`my ($host,$ports_to_alloc) =@_;`
	`16`	`+my$port =$max_port + 1;`
`17`	`17`
`18`	`18`	`while ($ports_to_alloc > 0)`
`19`	`19`	`{`
`20`		`-my$port =int(rand() * 16384) + 49152;`
`21`		`-`
`22`		`-# # try to use ordinary ports if available`
`23`		`-# if (!@allocated_now)`
`24`		`-# my $port = 5432;`
`25`		`-# else`
`26`		`-# my $port = max(@allocated_now) + 1;`
`27`		`-`
`28`		`-nextif$allocated_ports{$port};`
`29`	`20`	`diag("checking for port$port\n");`
`30`	`21`	`if (!TestLib::run_log(['pg_isready','-h',$host,'-p',$port]))`
`31`	`22`	`{`
`32`		`-$allocated_ports{$port} =1;`
	`23`	`+$max_port =$port;`
`33`	`24`	`push(@allocated_now,$port);`
`34`	`25`	`$ports_to_alloc--;`
`35`	`26`	`}`
	`27`	`+$port++;`
`36`	`28`	`}`
`37`	`29`
`38`	`30`	`return@allocated_now;`

Comments

(0)