From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 14 Nov 2006 11:35:04 +0000 (+0000)
Subject: Assert that we don't access strings saved for $1 etc. out of bounds
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3d82f0cdac7e45415d6eeb0eb18c4b5c1d1f1728;p=p5sagit%2Fp5-mst-13.2.git

Assert that we don't access strings saved for $1 etc. out of bounds

p4raw-id: //depot/perl@29271
---

diff --git a/mg.c b/mg.c
index 425190b..f82aa0d 100644
--- a/mg.c
+++ b/mg.c
@@ -854,6 +854,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
 		i = t1 - s1;
 		s = rx->subbeg + s1;
 		assert(rx->subbeg);
+		assert(rx->sublen >= s1);
 
 	      getrx:
 		if (i >= 0) {