This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Change av_foo_nomg() name
[perl5.git]
/
regexec.c
diff --git
a/regexec.c
b/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_
no
mg(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 */