From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 2 Feb 2000 08:04:52 +0000 (+0000)
Subject: fix coredump on C<"x" =~ /x/; print @-> (from Ilya Zakharevich)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fc19f8d03323992b29a43eebb298905a1efdc984;p=p5sagit%2Fp5-mst-13.2.git

fix coredump on C<"x" =~ /x/; print @-> (from Ilya Zakharevich)

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

diff --git a/pp_hot.c b/pp_hot.c
index 6ebde09..133265a 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1041,6 +1041,7 @@ yup:					/* Confirmed by INTUIT */
 	rx->startp[0] = s - truebase;
 	rx->endp[0] = s - truebase + rx->minlen;
     }
+    rx->nparens = rx->lastparen = 0;	/* used by @- and @+ */
     LEAVE_SCOPE(oldsave);
     RETPUSHYES;