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")

diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm
index 1ead9bf6c6c0eec129fbcc0e08bbd12ab3aa2070..be77fa907849f510a8faad7f6b4758a4823aac5a 100644 (file)
--- 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);