From: Vincent Pit <vince@profvince.com>
Date: Tue, 31 Mar 2015 19:08:50 +0000 (-0300)
Subject: Make sure MULTIPLICITY builds set PERL_IMPLICIT_CONTEXT
X-Git-Tag: rt100068~3
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=66fbc02a67af759ab45aef7e8c6ac5d659551311;p=perl%2Fmodules%2Findirect.git

Make sure MULTIPLICITY builds set PERL_IMPLICIT_CONTEXT
---

diff --git a/indirect.xs b/indirect.xs
index fd742eb..d8e7d0d 100644
--- a/indirect.xs
+++ b/indirect.xs
@@ -113,12 +113,17 @@
 #endif
 
 #ifndef I_MULTIPLICITY
-# if defined(MULTIPLICITY) || defined(PERL_IMPLICIT_CONTEXT)
+# if defined(MULTIPLICITY)
 #  define I_MULTIPLICITY 1
 # else
 #  define I_MULTIPLICITY 0
 # endif
 #endif
+#if I_MULTIPLICITY
+# ifndef PERL_IMPLICIT_CONTEXT
+#  error MULTIPLICITY builds must set PERL_IMPLICIT_CONTEXT
+# endif
+#endif
 #if I_MULTIPLICITY && !defined(tTHX)
 # define tTHX PerlInterpreter*
 #endif