summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorAnton Berezin <tobez@tobez.org>2003-07-14 15:50:35 +0200
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2003-07-17 20:59:15 +0000
commit2d862febb32638bf1f7663134644cf7e37f284ad (patch)
tree9b1d8def509167cad1b1e33d5b12844584b891df /pp_hot.c
parentb5da07fd59db94cc5a957ce65e6dff0d69552ce8 (diff)
downloadperl-2d862febb32638bf1f7663134644cf7e37f284ad.tar.gz
fix $^N-related coredump
Message-ID: <20030714115035.GA10971@heechee.tobez.org> p4raw-id: //depot/perl@20163
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_hot.c b/pp_hot.c
index e781dcc0d5..04442c9638 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1406,7 +1406,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 @+ */
+ rx->nparens = rx->lastparen = rx->lastcloseparen = 0; /* used by @-, @+, and $^N */
LEAVE_SCOPE(oldsave);
RETPUSHYES;