This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix coredump on C<"x" =~ /x/; print @-> (from Ilya Zakharevich)
authorGurusamy Sarathy <gsar@cpan.org>
Wed, 2 Feb 2000 08:04:52 +0000 (08:04 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 2 Feb 2000 08:04:52 +0000 (08:04 +0000)
p4raw-id: //depot/perl@4957

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;