Perl v5.16.3 (and possibly some later versions) complain about
this, but newer (v5.32.1) are fine with it.

Fixes: e281363ba937 ("lei: ensure we run DESTROY|END at daemon exit w/ kqueue")
---
 lib/PublicInbox/LEI.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm
index 1ead9bf6..be77fa90 100644
--- a/lib/PublicInbox/LEI.pm
+++ b/lib/PublicInbox/LEI.pm
@@ -1381,9 +1381,9 @@ sub lazy_start {
        PublicInbox::DS::sig_setmask($oldset) if @kq_ign;
 
        # exit() may trigger waitpid via various DESTROY, ensure interruptible
-       local @SIG{TERM} = sub { exit(POSIX::SIGTERM + 128) };
-       local @SIG{INT} = sub { exit(POSIX::SIGINT + 128) };
-       local @SIG{QUIT} = sub { exit(POSIX::SIGQUIT + 128) };
+       local $SIG{TERM} = sub { exit(POSIX::SIGTERM + 128) };
+       local $SIG{INT} = sub { exit(POSIX::SIGINT + 128) };
+       local $SIG{QUIT} = sub { exit(POSIX::SIGQUIT + 128) };
        PublicInbox::DS::sig_setmask($oldset) if !@kq_ign;
        dump_and_clear_log();
        exit($exit_code // 0);

Reply via email to