This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Convert to use av_tindex_nomg()
[perl5.git] / regexec.c
index 07a80e2..13dcf91 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -4130,7 +4130,7 @@ S_setup_EXACTISH_ST_c1_c2(pTHX_ const regnode * const text_node, int *c1p,
                 }
                 else {  /* Does participate in folds */
                     AV* list = (AV*) *listp;
-                    if (av_tindex(list) != 1) {
+                    if (av_tindex_nomg(list) != 1) {
 
                         /* If there aren't exactly two folds to this, it is
                          * outside the scope of this function */