diff options
author | Karl Williamson <khw@cpan.org> | 2014-09-17 12:16:12 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2014-09-29 11:07:40 -0600 |
commit | 13f27704e67ca16eefc14851c1cbf02be39509c6 (patch) | |
tree | 0f14fd837ee03d895c376f464d1e9a37dd46993e /regexec.c | |
parent | 81a9a93bd8cf15be6db1942f8e44c590ecbace15 (diff) | |
download | perl-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) |