This name is controversial. Use #ifdef's to keep it from being exposed
outside of the places that already use it. And don't publicize that it
exists.
? mg_size(MUTABLE_SV(av)) : AvFILLp(av))
#define av_tindex(av) av_top_index(av)
-#define av_tindex_nomg(av) (__ASSERT_(SvTYPE(av) == SVt_PVAV) AvFILLp(av))
+#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_UTF8_C)
+/* Note that it doesn't make sense to do this:
+ * SvGETMAGIC(av); IV x = av_tindex_nomg(av);
+ * This name is controversial, and so is restricted by the #ifdef to the places
+ * it already occurs
+ */
+# define av_tindex_nomg(av) (__ASSERT_(SvTYPE(av) == SVt_PVAV) AvFILLp(av))
+#endif
#define NEGATIVE_INDICES_VAR "NEGATIVE_INDICES"
=back
-=head1 Internal Changes
-
-=over 4
-
-=item *
-
-New method C<av_tindex_nomg>. This is like C<av_tindex>, but does not
-handle magic. It's undocumented and not part of the official API for now --
-it may disappear if it turns out not to be a good idea.
-
-=back
-
=head1 Selected Bug Fixes
=over 4