This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change av_foo_nomg() name
[perl5.git] / regexec.c
index 4e4b4fd..cf6b548 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -4181,7 +4181,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_nomg(list) != 1) {
+                    if (av_tindex_skip_len_mg(list) != 1) {
 
                         /* If there aren't exactly two folds to this, it is
                          * outside the scope of this function */