1 files changed, 1 insertions, 0 deletions
diff --git a/mg.c b/mg.c
index 425190b974..f82aa0dae3 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) {