Restore whichsig to the list in perlapi

diff --git a/embed.fnc b/embed.fnc
index d29cabc..40a8c8c 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1454,6 +1454,7 @@ Afp       |void   |ck_warner_d    |U32 err|NN const char* pat|...
 Ap     |void   |vwarner        |U32 err|NN const char* pat|NULLOK va_list* args
 : FIXME
 p      |void   |watch          |NN char** addr
+Am     |I32    |whichsig       |NN const char* sig
 Ap     |I32    |whichsig_sv    |NN SV* sigsv
 Ap     |I32    |whichsig_pv    |NN const char* sig
 Ap     |I32    |whichsig_pvn   |NN const char* sig|STRLEN len

diff --git a/proto.h b/proto.h
index 2590175..6e9eda4 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -4643,6 +4643,9 @@ PERL_CALLCONV void        Perl_watch(pTHX_ char** addr)
 #define PERL_ARGS_ASSERT_WATCH \
        assert(addr)
 
+/* PERL_CALLCONV I32   whichsig(pTHX_ const char* sig)
+                       __attribute__nonnull__(pTHX_1); */
+
 PERL_CALLCONV I32      Perl_whichsig_pv(pTHX_ const char* sig)
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_WHICHSIG_PV   \