Commit947a350

committed

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

1 parent5f1433a commit947a350Copy full SHA for 947a350

File tree

-1

lines changed

-1

lines changed

Lines changed: 3 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -789,7 +789,9 @@ sub kill9`
`789`	`789`	`my$name =$self->name;`
`790`	`790`	`returnunlessdefined$self->{_pid};`
`791`	`791`	`print"### Killing node\"$name\" using signal 9\n";`
`792`		`-kill(9,$self->{_pid})or BAIL_OUT("kill(9,$self->{_pid}) failed");`
	`792`	`+# kill(9, ...) fails under msys Perl 5.8.8, so fall back on pg_ctl.`
	`793`	`+kill(9,$self->{_pid})`
	`794`	`+or TestLib::system_or_bail('pg_ctl','kill','KILL',$self->{_pid});`
`793`	`795`	`$self->{_pid} =undef;`
`794`	`796`	`return;`
`795`	`797`	`}`

Comments

(0)