Commitde26294

committed

When Perl "kill(9, ...)" fails, try "pg_ctl kill".

1 parent089e4d4 commitde26294Copy full SHA for de26294

File tree

-1

lines changed

-1

lines changed

Lines changed: 3 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -777,7 +777,9 @@ sub kill9`
`777`	`777`	`my$name =$self->name;`
`778`	`778`	`returnunlessdefined$self->{_pid};`
`779`	`779`	`print"### Killing node\"$name\" using signal 9\n";`
`780`		`-kill(9,$self->{_pid})or BAIL_OUT("kill(9,$self->{_pid}) failed");`
	`780`	`+# kill(9, ...) fails under msys Perl 5.8.8, so fall back on pg_ctl.`
	`781`	`+kill(9,$self->{_pid})`
	`782`	`+or TestLib::system_or_bail('pg_ctl','kill','KILL',$self->{_pid});`
`781`	`783`	`$self->{_pid} =undef;`
`782`	`784`	`return;`
`783`	`785`	`}`

Comments

(0)