Make sure MULTIPLICITY builds set PERL_IMPLICIT_CONTEXT
authorVincent Pit <vince@profvince.com>
Tue, 31 Mar 2015 19:08:50 +0000 (16:08 -0300)
committerVincent Pit <vince@profvince.com>
Tue, 31 Mar 2015 19:08:50 +0000 (16:08 -0300)
indirect.xs

index fd742eb..d8e7d0d 100644 (file)
 #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