From: Simon Cozens <simon@netthink.co.uk>
Date: Fri, 7 Jul 2000 11:26:09 +0000 (+0000)
Subject: $& segfaults if you trick it
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=576314d7f61ca5fb7814bb8412ab73459affb131;p=p5sagit%2Fp5-mst-13.2.git

$& segfaults if you trick it
Message-ID: <slrn8mbfif.ead.simon@justanother.perlhacker.org>

p4raw-id: //depot/cfgperl@6336
---

diff --git a/mg.c b/mg.c
index b1049c5..aee2790 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;