diff options
| author | David Mitchell <davem@iabyn.com> | 2010-06-04 16:18:05 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-06-04 16:18:05 +0100 |
| commit | 92f022bbf8c129c6f2379a382f1eaaa5c7bd9f3f (patch) | |
| tree | f848f69dc55ae2b803d5123060a048bc11d6f73d /perl.h | |
| parent | 83918a83a5dfae8071d366c33fa37b83aabecfc4 (diff) | |
| download | perl-92f022bbf8c129c6f2379a382f1eaaa5c7bd9f3f.tar.gz | |
add PL_signalhook to hook into signal dispatch
This is initially intended for threads::shared and shouldn't (yet)
be considered part of the public API.
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -4189,6 +4189,7 @@ typedef void (CPERLscope(*share_proc_t)) (pTHX_ SV *sv); typedef int (CPERLscope(*thrhook_proc_t)) (pTHX); typedef OP* (CPERLscope(*PPADDR_t)[]) (pTHX); typedef bool (CPERLscope(*destroyable_proc_t)) (pTHX_ SV *sv); +typedef void (CPERLscope(*despatch_signals_proc_t)) (pTHX); /* _ (for $_) must be first in the following list (DEFSV requires it) */ #define THREADSV_NAMES "_123456789&`'+/.,\\\";^-%=|~:\001\005!@" @@ -5677,7 +5678,7 @@ typedef struct am_table_short AMTS; #ifndef PERL_MICRO # ifndef PERL_ASYNC_CHECK -# define PERL_ASYNC_CHECK() if (PL_sig_pending) despatch_signals() +# define PERL_ASYNC_CHECK() if (PL_sig_pending) CALL_FPTR(PL_signalhook)(aTHX) # endif #endif |