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 (file)
--- 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;