diff options
| author | Ben Morrow <ben@morrow.me.uk> | 2009-11-26 17:18:29 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-07-12 10:40:47 +0200 |
| commit | 1930840b26541ab67ff111a47ceab4753d798617 (patch) | |
| tree | f27bbe5e370d51ad4f243eea906dc3b546f05efc /intrpvar.h | |
| parent | 3e2d3818e517e0037c1ab6a482f31d50271f9e27 (diff) | |
| download | perl-1930840b26541ab67ff111a47ceab4753d798617.tar.gz | |
Generic hooks into Perl_block_{start,end}.
These take the form of a vtable pushed onto the new PL_blockhooks array.
This could probably do with a API around it later. Separate pre_end and
post_end hooks are needed to capture globals before the stack is unwound
(like needblockscope in the existing code). The intention is that once
a vtable is installed it never gets removed, so where necessary
extensions using this will need to use a hinthv element to determine
whether to do anything or not.
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index 138895a2fd..1e01e43892 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -722,6 +722,9 @@ PERLVARI(Isv_serial, U32, 0) /* SV serial number, used in sv.c */ retrieve a C<struct mro_alg *> */ PERLVAR(Iregistered_mros, HV *) +/* Compile-time block start/end hooks */ +PERLVAR(Iblockhooks, AV *) + /* If you are adding a U8 or U16, check to see if there are 'Space' comments * above on where there are gaps which currently will be structure padding. */ |