integrate cfgperl changes#6325..6373 into mainline

(NOTE: today's batch of integrations still untested)

p4raw-link: @6373 (not found)
p4raw-link: @6325 on //depot/cfgperl: d6ac44cc5a00fa38a56717785146bc16b716472c

p4raw-id: //depot/perl@6373

1 files changed, 3 insertions, 0 deletions

diff --git a/mg.c b/mg.c
index b1049c5d9a..aee279080f 100644
--- a/mg.c
+++ b/mg.c
@@ -614,6 +614,9 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
 	    {
 		i = t1 - s1;
 		s = rx->subbeg + s1;
+                if (!rx->subbeg)
+		    break;
+
 	      getrx:
 		if (i >= 0) {
 		    bool was_tainted;