diff options
| author | Noah Misch <noah@leadboat.com> | 2019-04-13 11:09:27 -0700 |
|---|---|---|
| committer | Noah Misch <noah@leadboat.com> | 2019-04-13 11:09:30 -0700 |
| commit | 61c0962d90d5386a24a30970ff4635cce68051bb (patch) | |
| tree | 824558a60dd31f672371bd395c1a047154c580d3 /src/test/perl/PostgresNode.pm | |
| parent | d4c50b4b1f86f639992b23eb183575ad6f0653ca (diff) | |
| download | postgresql-61c0962d90d5386a24a30970ff4635cce68051bb.tar.gz postgresql-61c0962d90d5386a24a30970ff4635cce68051bb.zip | |
When Perl "kill(9, ...)" fails, try "pg_ctl kill".
Per buildfarm member jacana, the former fails under msys Perl 5.8.8.
Back-patch to 9.6, like the code in question.
Discussion: https://postgr.es/m/GrdLgAdUK9FdyZg8VIcTDKVOkys122ZINEb3CjjoySfGj2KyPiMKTh1zqtRp0TAD7FJ27G-OBB3eplxIB5GhcQH5o8zzGZfp0MuJaXJxVxk=@yesql.se
Diffstat (limited to 'src/test/perl/PostgresNode.pm')
| -rw-r--r-- | src/test/perl/PostgresNode.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm index 52708205850..fff8c992a37 100644 --- a/src/test/perl/PostgresNode.pm +++ b/src/test/perl/PostgresNode.pm @@ -734,7 +734,9 @@ sub kill9 my $name = $self->name; return unless defined $self->{_pid}; print "### Killing node \"$name\" using signal 9\n"; - kill(9, $self->{_pid}) or BAIL_OUT("kill(9, $self->{_pid}) failed"); + # kill(9, ...) fails under msys Perl 5.8.8, so fall back on pg_ctl. + kill(9, $self->{_pid}) + or TestLib::system_or_bail('pg_ctl', 'kill', 'KILL', $self->{_pid}); $self->{_pid} = undef; return; } |