Commit61c0962

committed

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

1 parentd4c50b4 commit61c0962Copy full SHA for 61c0962

File tree

-1

lines changed

-1

lines changed

Lines changed: 3 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -734,7 +734,9 @@ sub kill9`
`734`	`734`	`my$name =$self->name;`
`735`	`735`	`returnunlessdefined$self->{_pid};`
`736`	`736`	`print"### Killing node\"$name\" using signal 9\n";`
`737`		`-kill(9,$self->{_pid})or BAIL_OUT("kill(9,$self->{_pid}) failed");`
	`737`	`+# kill(9, ...) fails under msys Perl 5.8.8, so fall back on pg_ctl.`
	`738`	`+kill(9,$self->{_pid})`
	`739`	`+or TestLib::system_or_bail('pg_ctl','kill','KILL',$self->{_pid});`
`738`	`740`	`$self->{_pid} =undef;`
`739`	`741`	`return;`
`740`	`742`	`}`

Comments

(0)