diff options
author | Karl Williamson <khw@cpan.org> | 2020-04-28 10:27:01 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-04-29 13:21:51 -0600 |
commit | a964bf354ede905cf62ebdd20fb08b8f6eaa137c (patch) | |
tree | d81974f380e1d2233ee5248e8ada10a98bf9784c /regcomp.c | |
parent | 42fd8c63c3c0d56c51300f428529223f7a34d1d2 (diff) | |
download | perl-a964bf354ede905cf62ebdd20fb08b8f6eaa137c.tar.gz |
regcomp.c: Add assert
The code's proper functioning currently depends on bracketed character
classes not returning a sequence of characters to the regex sets feature
(?[...])
Add an assert to validate that.
Diffstat (limited to 'regcomp.c')
-rw-r--r-- | regcomp.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -17371,6 +17371,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth, PERL_UNUSED_ARG(depth); #endif + assert(! (ret_invlist && allow_mutiple_chars)); /* If wants an inversion list returned, we can't optimize to something * else. */ |