From bb6c22e795117e6d984471c0be74c8b3302b3b9a Mon Sep 17 00:00:00 2001 From: Ben Morrow Date: Mon, 7 Dec 2009 12:55:57 +0000 Subject: Wrap PL_blockhooks in an API function. This should help prevent people from thinking they can get cute with the contents. --- embed.h | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'embed.h') diff --git a/embed.h b/embed.h index df31c378da..5e79e585b1 100644 --- a/embed.h +++ b/embed.h @@ -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 -- cgit v1.2.1