Change 20163 by [EMAIL PROTECTED] on 2003/07/17 20:59:15
Subject: [PATCH] fix $^N-related coredump
From: Anton Berezin <[EMAIL PROTECTED]>
Date: Mon, 14 Jul 2003 13:50:35 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/pp_hot.c#322 edit
... //depot/perl/sv.c#676 edit
Differences ...
==== //depot/perl/pp_hot.c#322 (text) ====
Index: perl/pp_hot.c
--- perl/pp_hot.c#321~19769~ Fri Jun 13 12:17:50 2003
+++ perl/pp_hot.c Thu Jul 17 13:59:15 2003
@@ -1406,7 +1406,7 @@
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;
==== //depot/perl/sv.c#676 (text) ====
Index: perl/sv.c
--- perl/sv.c#675~19962~ Thu Jul 3 11:54:09 2003
+++ perl/sv.c Thu Jul 17 13:59:15 2003
@@ -11474,6 +11474,7 @@
PL_regstartp = (I32*)NULL;
PL_regendp = (I32*)NULL;
PL_reglastparen = (U32*)NULL;
+ PL_reglastcloseparen = (U32*)NULL;
PL_regtill = Nullch;
PL_reg_start_tmp = (char**)NULL;
PL_reg_start_tmpl = 0;
End of Patch.
