diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-12 11:24:15 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-10-12 11:24:15 +0100 |
| commit | 4b8c6c21cda3d9cbafb72eda661edc9052aa2cec (patch) | |
| tree | 9ccb458342c2d75711d03ccdfbbb14b3209d7c1f /embed.h | |
| parent | f8279d106847c47fc5a4092b27d4f24faffd84cd (diff) | |
| download | perl-4b8c6c21cda3d9cbafb72eda661edc9052aa2cec.tar.gz | |
deprecate_old() is not public, and only used within toke.c, so can be static.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 12 |
1 files changed, 10 insertions, 2 deletions
@@ -151,7 +151,11 @@ #ifdef PERL_CORE #define delete_eval_scope Perl_delete_eval_scope #define deprecate Perl_deprecate -#define deprecate_old Perl_deprecate_old +#endif +#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) +#ifdef PERL_CORE +#define deprecate_old S_deprecate_old +#endif #endif #define die Perl_die #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT) @@ -2488,7 +2492,11 @@ #ifdef PERL_CORE #define delete_eval_scope() Perl_delete_eval_scope(aTHX) #define deprecate(a) Perl_deprecate(aTHX_ a) -#define deprecate_old(a) Perl_deprecate_old(aTHX_ a) +#endif +#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) +#ifdef PERL_CORE +#define deprecate_old(a) S_deprecate_old(aTHX_ a) +#endif #endif #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE |