From 0e0f4419064a5e0b7902bd09a4e4e055bde5db70 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Sun, 24 Sep 2023 21:08:21 +0000 Subject: lei: use scalar %SIG assignment 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(-) (limited to 'lib/PublicInbox/LEI.pm') 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); -- cgit v1.2.3-24-ge0c7