From: Karl Williamson <public@khwilliamson.com>
Date: Wed, 28 Sep 2011 04:18:20 +0000 (-0600)
Subject: regcomp.c: Add assertion
X-Git-Tag: v5.15.4~204
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/32f89ef61d006e06f334c5a094e4ef398f4fcdbb

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.
---

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