lg2 cat_oid: call Perl %SIG handlers on EINTR

For all of our C code running within a Perl interpreter,
we need to call PERL_ASYNC_CHECK() after seeing EINTR to
ensure Perl dispatches %SIG handlers after a process
receives a signal.

diff --git a/lib/PublicInbox/lg2.h b/lib/PublicInbox/lg2.h
index b897759511b1638b3a24b4480ef18d1f3858de33..af24a349e7084e395d9e20486db54bb26c461b8d 100644 (file)
--- a/lib/PublicInbox/lg2.h
+++ b/lib/PublicInbox/lg2.h
@@ -127,6 +127,7 @@ int cat_oid(SV *self, int fd, SV *oidsv)
                        }
                                /* fall-through */
                        case EINTR:
+                               PERL_ASYNC_CHECK();
                                err = 0;
                        }
                } else { /* w == 0 */