This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.h: Restrict scope of multiconcat symbols to core
[perl5.git] / op.h
diff --git a/op.h b/op.h
index 9750717..be19303 100644 (file)
--- a/op.h
+++ b/op.h
@@ -1072,6 +1072,8 @@ C<sib> is non-null. For a higher-level interface, see C<L</op_sibling_splice>>.
 #endif
 
 
+#if defined(PERL_CORE) || defined(PERL_EXT)
+
 /* Stuff for OP_MULTDEREF/pp_multideref. */
 
 /* actions */
@@ -1111,6 +1113,8 @@ C<sib> is non-null. For a higher-level interface, see C<L</op_sibling_splice>>.
 #define MDEREF_MASK         0x7F
 #define MDEREF_SHIFT           7
 
+#endif  /* end CORE/EXT only */
+
 #if defined(PERL_IN_DOOP_C) || defined(PERL_IN_PP_C)
 #   define FATAL_ABOVE_FF_MSG                                       \
       "Use of strings with code points over 0xFF as arguments to "  \