Make sure MULTIPLICITY builds set PERL_IMPLICIT_CONTEXT

[perl/modules/indirect.git] / indirect.xs

diff --git a/indirect.xs b/indirect.xs
index fd742ebf9cac5c72a1402df39a04e544b8d2a80c..d8e7d0deb9d21ebc25cbfa683a86c84e9db71af8 100644 (file)
--- 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