From 32f89ef61d006e06f334c5a094e4ef398f4fcdbb Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Tue, 27 Sep 2011 22:18:20 -0600 Subject: [PATCH] regcomp.c: Add assertion This is to guard against misuse of the functions. There is no guard currently in the underlying Perl functions to lengthening a string beyond the capacity to hold it. --- regcomp.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/regcomp.c b/regcomp.c index ec8b3c1..1fa5e24 100644 --- a/regcomp.c +++ b/regcomp.c @@ -5955,6 +5955,8 @@ S_invlist_set_len(pTHX_ SV* const invlist, const UV len) *get_invlist_len_addr(invlist) = len; + assert(len <= SvLEN(invlist)); + SvCUR_set(invlist, TO_INTERNAL_SIZE(len)); /* If the list contains U+0000, that element is part of the header, * and should not be counted as part of the array. It will contain -- 1.8.3.1