diff options
author | Eric Wong <e@80x24.org> | 2023-11-15 01:04:56 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2023-11-15 04:25:00 +0000 |
commit | 0e9088e0c762f64bcc9fa0bfcfec63799f2fb118 (patch) | |
tree | a644b345c98f5946cf23a9902ec71ccd6c8fd626 /lib/PublicInbox/LEI.pm | |
parent | 58e6ee9df4f74b1078541c8924cf2918ceec0765 (diff) | |
download | public-inbox-0e9088e0c762f64bcc9fa0bfcfec63799f2fb118.tar.gz |
Unlike modern Perls, Perl 5.16.3 on CentOS doesn't accept negative string signals like "-TERM" . This only became a problem since commit b231d91f42d7 (treewide: enable warnings in all exec-ed processes) made our code stricter by enabling more warnings. In both cases, the kill is probably unnecessary and safe to remove since we can rely on closing sockets to drop processes.
Diffstat (limited to 'lib/PublicInbox/LEI.pm')
-rw-r--r-- | lib/PublicInbox/LEI.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm index 77acb5a1..69065ce7 100644 --- a/lib/PublicInbox/LEI.pm +++ b/lib/PublicInbox/LEI.pm @@ -474,7 +474,7 @@ my @WQ_KEYS = qw(lxs l2m ikw pmd wq1 lne v2w); # internal workers sub _drop_wq { my ($self) = @_; for my $wq (grep(defined, delete(@$self{@WQ_KEYS}))) { - $wq->wq_kill('-TERM'); + $wq->wq_kill(-POSIX::SIGTERM()); $wq->DESTROY; } } |