From: Jarkko Hietaniemi Date: Sat, 26 May 2001 22:10:38 +0000 (+0000) Subject: Regen headers for #10221. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c9242e489bb96da0966a8aebd4b60579ca9623f3;p=p5sagit%2Fp5-mst-13.2.git Regen headers for #10221. p4raw-id: //depot/perl@10222 --- diff --git a/global.sym b/global.sym index f54a3fc..472fff5 100644 --- a/global.sym +++ b/global.sym @@ -333,6 +333,7 @@ Perl_regnext Perl_repeatcpy Perl_rninstr Perl_rsignal +Perl_rsignal_state Perl_savepv Perl_savepvn Perl_savestack_grow diff --git a/objXSUB.h b/objXSUB.h index 28bed78..ecdaea5 100644 --- a/objXSUB.h +++ b/objXSUB.h @@ -1331,6 +1331,10 @@ #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 diff --git a/perlapi.c b/perlapi.c index e0432f7..ac5ff3e 100644 --- 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