Commit8358436

committed

Add retry up to 10 seconds when connecting to hosted compiler server. (changeset 1291356)

1 parent0ed4da4 commit8358436Copy full SHA for 8358436

File tree

+13

-7

lines changed

+13

-7

lines changed

Lines changed: 13 additions & 7 deletions

Original file line number	Diff line number	Diff line change
`@@ -378,13 +378,19 @@ sub RunCompilerCommand {`
`378`	`378`	`if($ENV{HOSTED_COMPILER_PORT}ne""){`
`379`	`379`	`$port =$ENV{HOSTED_COMPILER_PORT};`
`380`	`380`	`}`
`381`		`-my$remote = IO::Socket::INET->new(`
`382`		`-Proto=>"tcp",`
`383`		`-PeerAddr=>"localhost",`
`384`		`-PeerPort=>$port,`
`385`		`- )`
`386`		`-or RunExit(TEST_FAIL,"Unable to connect to hosted compiler\n");`
`387`		`-`
	`381`	`+`
	`382`	`+my$attempts = 0;`
	`383`	`+my$remote =undef;`
	`384`	`+until($remote \|\| ($attempts == 10)) {`
	`385`	`+$remote = IO::Socket::INET->new(`
	`386`	`+Proto=>"tcp",`
	`387`	`+PeerAddr=>"localhost",`
	`388`	`+PeerPort=>$port,`
	`389`	`+ )orsleep(1);`
	`390`	`+$attempts++;`
	`391`	`+ }`
	`392`	`+ RunExit(TEST_FAIL,"Unable to connect to hosted compiler\n")unless$remote;`
	`393`	`+`
`388`	`394`	`my$currDir = getcwd();`
`389`	`395`
`390`	`396`	`# send current directory and full command line to the compiler host process`

Comments

(0)