From: Karl Williamson <khw@cpan.org>
Date: Sat, 17 Oct 2020 15:20:52 +0000 (-0600)
Subject: op.h: Restrict scope of multiconcat symbols to core
X-Git-Tag: v5.33.4~35
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/a5d5855671af6956a8d1a13e419457afdffeb416

op.h: Restrict scope of multiconcat symbols to core

These are internal only
---

diff --git a/op.h b/op.h
index 9750717..be19303 100644
--- 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 "  \