about summary refs log tree commit homepage
path: root/lib/PublicInbox/LeiXSearch.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2023-11-15 01:04:56 +0000
committerEric Wong <e@80x24.org>2023-11-15 04:25:00 +0000
commit0e9088e0c762f64bcc9fa0bfcfec63799f2fb118 (patch)
treea644b345c98f5946cf23a9902ec71ccd6c8fd626 /lib/PublicInbox/LeiXSearch.pm
parent58e6ee9df4f74b1078541c8924cf2918ceec0765 (diff)
downloadpublic-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/LeiXSearch.pm')
-rw-r--r--lib/PublicInbox/LeiXSearch.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/PublicInbox/LeiXSearch.pm b/lib/PublicInbox/LeiXSearch.pm
index b09c2462..e85fd3c4 100644
--- a/lib/PublicInbox/LeiXSearch.pm
+++ b/lib/PublicInbox/LeiXSearch.pm
@@ -437,7 +437,7 @@ sub do_post_augment {
         my $err = $@;
         if ($err) {
                 if (my $lxs = delete $lei->{lxs}) {
-                        $lxs->wq_kill('-TERM');
+                        $lxs->wq_kill(-POSIX::SIGTERM());
                         $lxs->wq_close;
                 }
                 $lei->fail("$err");