diff options
author | Karl Williamson <khw@cpan.org> | 2023-01-11 16:25:11 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2023-02-10 21:29:07 -0700 |
commit | 2aa450394fed0a447d8df334bc797a50a81aebe3 (patch) | |
tree | 1abebb5aec7d3d6f04a151aa7803f06d58b23340 /perl.h | |
parent | 90483ee5ba0858ac3f0e5fd6e39ccc3202001749 (diff) | |
download | perl-2aa450394fed0a447d8df334bc797a50a81aebe3.tar.gz |
perl.h: Make sure PERL_IMPLICIT_CONTEXT doesn't come back
This is an obsolete name, retained for back compat with cpan. Make sure
the core doesn't have it defined.
Diffstat (limited to 'perl.h')
-rw-r--r-- | perl.h | 12 |
1 files changed, 8 insertions, 4 deletions
@@ -79,14 +79,18 @@ is used in functions that take a thread context initial parameter. #endif /* PERL_IMPLICIT_CONTEXT is a legacy synonym for MULTIPLICITY */ -#ifdef MULTIPLICITY -# ifndef PERL_IMPLICIT_CONTEXT -# define PERL_IMPLICIT_CONTEXT -# endif +#if defined(MULTIPLICITY) \ + && ! defined(PERL_CORE) \ + && ! defined(PERL_IMPLICIT_CONTEXT) +# define PERL_IMPLICIT_CONTEXT #endif #if defined(PERL_IMPLICIT_CONTEXT) && !defined(MULTIPLICITY) # define MULTIPLICITY #endif +#if defined(PERL_CORE) && defined(PERL_IMPLICIT_CONTEXT) +# pragma message("PERL_IMPLICIT_CONTEXT was removed from core perl. It does not do anything. Undeffing it for compilation") +# undef PERL_IMPLICIT_CONTEXT +#endif /* undef WIN32 when building on Cygwin (for libwin32) - gph */ #ifdef __CYGWIN__ |