From 3d82f0cdac7e45415d6eeb0eb18c4b5c1d1f1728 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 14 Nov 2006 11:35:04 +0000 Subject: [PATCH] Assert that we don't access strings saved for $1 etc. out of bounds p4raw-id: //depot/perl@29271 --- mg.c | 1 + 1 file changed, 1 insertion(+) 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) { -- 2.7.4