diff options
| author | Ben Morrow <ben@morrow.me.uk> | 2009-12-07 12:55:57 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-07-12 10:40:47 +0200 |
| commit | bb6c22e795117e6d984471c0be74c8b3302b3b9a (patch) | |
| tree | e4fd879b498c3df488403078ee2a97e48ec7ca5e /embed.h | |
| parent | 52db365a88f7ab3b9b091f983a05054164499982 (diff) | |
| download | perl-bb6c22e795117e6d984471c0be74c8b3302b3b9a.tar.gz | |
Wrap PL_blockhooks in an API function.
This should help prevent people from thinking they can get cute with the
contents.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -84,6 +84,8 @@ #define block_gimme Perl_block_gimme #ifdef PERL_CORE #define block_start Perl_block_start +#endif +#ifdef PERL_CORE #define boot_core_UNIVERSAL Perl_boot_core_UNIVERSAL #define boot_core_PerlIO Perl_boot_core_PerlIO #endif @@ -2531,6 +2533,8 @@ #define block_gimme() Perl_block_gimme(aTHX) #ifdef PERL_CORE #define block_start(a) Perl_block_start(aTHX_ a) +#endif +#ifdef PERL_CORE #define boot_core_UNIVERSAL() Perl_boot_core_UNIVERSAL(aTHX) #define boot_core_PerlIO() Perl_boot_core_PerlIO(aTHX) #endif |