diff options
author | Karl Williamson <khw@cpan.org> | 2019-12-17 17:59:16 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-12-17 18:01:47 -0700 |
commit | 60c54b2d1a35fc304daa36503e9d4966cef56dbc (patch) | |
tree | 1f0f8f5aff84327bc1e178d317648c92c34a8a3e | |
parent | c55422bab220dd194925b14f223bc6272aa4d4cf (diff) | |
download | perl-60c54b2d1a35fc304daa36503e9d4966cef56dbc.tar.gz |
PATCH: GH #17363 Reserve two sequences
We can't guarantee what people might do in the future with these two
currently unused illegal pattern sequences. What I did was put a
comment and code where things would have to change to use them to refer
to this ticket.
-rw-r--r-- | regcomp.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -11376,6 +11376,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp, U32 depth) RExC_parse-seqstart, seqstart); NOT_REACHED; /*NOTREACHED*/ case '<': /* (?<...) */ + /* If you want to support (?<*...), first reconcile with GH #17363 */ if (*RExC_parse == '!') paren = ','; else if (*RExC_parse != '=') @@ -11949,6 +11950,8 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp, U32 depth) ckWARNreg(RExC_parse, "Empty (?) without any modifiers"); } /* FALLTHROUGH */ + case '*': /* If you want to support (?*...), first reconcile with GH #17363 */ + /* FALLTHROUGH */ default: /* e.g., (?i) */ RExC_parse = (char *) seqstart + 1; parse_flags: |