summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2014-09-17 12:16:12 -0600
committerKarl Williamson <khw@cpan.org>2014-09-29 11:07:40 -0600
commit13f27704e67ca16eefc14851c1cbf02be39509c6 (patch)
tree0f14fd837ee03d895c376f464d1e9a37dd46993e /regexec.c
parent81a9a93bd8cf15be6db1942f8e44c590ecbace15 (diff)
downloadperl-13f27704e67ca16eefc14851c1cbf02be39509c6.tar.gz
Up regex flags limit for (??{})
Previously the regex pattern compilation flags needed for this construct would fit into an 8-bit byte. This conveniently fits into the flags structure element of a regnode. There are changes coming that require more than 8 bits, so in preparation, this commit adds an argument to the node that implements (??{}) (31-bits usable for flags), and moves the storage to that.
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/regexec.c b/regexec.c
index e44691ed86..3af3e37346 100644
--- a/regexec.c
+++ b/regexec.c
@@ -5448,7 +5448,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
re_sv = rex->engine->op_comp(aTHX_ &ret, 1, NULL,
rex->engine, NULL, NULL,
/* copy /msix etc to inner pattern */
- scan->flags,
+ ARG2L(scan),
pm_flags);
if (!(SvFLAGS(ret)