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 /regcomp.sym | |
| 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 'regcomp.sym')
| -rw-r--r-- | regcomp.sym | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regcomp.sym b/regcomp.sym index 93019922da..2178503dcc 100644 --- a/regcomp.sym +++ b/regcomp.sym @@ -165,7 +165,7 @@ GROUPP GROUPP, num 1 ; Whether the group matched. #*The heavy worker -EVAL EVAL, evl 1 ; Execute some Perl code. +EVAL EVAL, evl/flags 2L ; Execute some Perl code. #*Modifiers |