Regen headers for #10221.
Jarkko Hietaniemi [Sat, 26 May 2001 22:10:38 +0000 (22:10 +0000)]
p4raw-id: //depot/perl@10222

global.sym
objXSUB.h
perlapi.c

index f54a3fc..472fff5 100644 (file)
@@ -333,6 +333,7 @@ Perl_regnext
 Perl_repeatcpy
 Perl_rninstr
 Perl_rsignal
+Perl_rsignal_state
 Perl_savepv
 Perl_savepvn
 Perl_savestack_grow
index 28bed78..ecdaea5 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
 #define Perl_rsignal           pPerl->Perl_rsignal
 #undef  rsignal
 #define rsignal                        Perl_rsignal
+#undef  Perl_rsignal_state
+#define Perl_rsignal_state     pPerl->Perl_rsignal_state
+#undef  rsignal_state
+#define rsignal_state          Perl_rsignal_state
 #if !defined(HAS_RENAME)
 #endif
 #undef  Perl_savepv
index e0432f7..ac5ff3e 100644 (file)
--- a/perlapi.c
+++ b/perlapi.c
@@ -2432,6 +2432,13 @@ Perl_rsignal(pTHXo_ int i, Sighandler_t t)
 {
     return ((CPerlObj*)pPerl)->Perl_rsignal(i, t);
 }
+
+#undef  Perl_rsignal_state
+Sighandler_t
+Perl_rsignal_state(pTHXo_ int i)
+{
+    return ((CPerlObj*)pPerl)->Perl_rsignal_state(i);
+}
 #if !defined(HAS_RENAME)
 #endif