This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use SvTAIL() instead of BmFLAGS(). The core no longer uses BmFLAGS().
[perl5.git] / sv.h
diff --git a/sv.h b/sv.h
index e4e1f7a..04a45c2 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -1295,7 +1295,9 @@ the scalar's value cannot change unless written to.
    perl -T -e '/$^X/'
 */
 
-#define BmFLAGS(sv)            (SvTAIL(sv) ? FBMcf_TAIL : 0)
+#ifndef PERL_CORE
+#  define BmFLAGS(sv)          (SvTAIL(sv) ? FBMcf_TAIL : 0)
+#endif
 
 #if defined (DEBUGGING) && defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
 #  define BmRARE(sv)                                                   \