From: Father Chrysostomos <sprout@cpan.org>
Date: Thu, 6 Oct 2011 05:26:00 +0000 (-0700)
Subject: Restore whichsig to the list in perlapi
X-Git-Tag: accepted/trunk/20130322.191538~2492^2~7
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=a377a09989895396c80a1e522682c25069cc46fb;p=platform%2Fupstream%2Fperl.git

Restore whichsig to the list in perlapi
---

diff --git a/embed.fnc b/embed.fnc
index d29cabc..40a8c8c 100644
--- 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
--- 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	\