From 2aa450394fed0a447d8df334bc797a50a81aebe3 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 11 Jan 2023 16:25:11 -0700 Subject: 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. --- perl.h | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'perl.h') diff --git a/perl.h b/perl.h index 588f63d96c..1247788682 100644 --- a/perl.h +++ b/perl.h @@ -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__ -- cgit v1.2.1