summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2020-04-28 10:27:01 -0600
committerKarl Williamson <khw@cpan.org>2020-04-29 13:21:51 -0600
commita964bf354ede905cf62ebdd20fb08b8f6eaa137c (patch)
treed81974f380e1d2233ee5248e8ada10a98bf9784c /regcomp.c
parent42fd8c63c3c0d56c51300f428529223f7a34d1d2 (diff)
downloadperl-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.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/regcomp.c b/regcomp.c
index 8e109b5c72..1c45413e61 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -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. */