Change 11574 by jhi@alpha on 2001/08/04 15:42:34
Subject: Re: [patch] ignore PL_curpm in PL_regex_padav cleanup
From: Doug MacEachern <[EMAIL PROTECTED]>
Date: Sat, 4 Aug 2001 09:43:02 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/perl.c#355 edit
... //depot/perl/regexec.c#177 edit
Differences ...
==== //depot/perl/perl.c#355 (text) ====
Index: perl/perl.c
--- perl/perl.c.~1~ Sat Aug 4 09:45:05 2001
+++ perl/perl.c Sat Aug 4 09:45:05 2001
@@ -481,7 +481,7 @@
REGEXP *re = (REGEXP *)SvIVX(resv);
if (SvFLAGS(resv) & SVf_BREAK) {
- /* this is PL_curpm, already freed
+ /* this is PL_reg_curpm, already freed
* flag is set in regexec.c:S_regtry
*/
SvFLAGS(resv) &= ~SVf_BREAK;
==== //depot/perl/regexec.c#177 (text) ====
Index: perl/regexec.c
--- perl/regexec.c.~1~ Sat Aug 4 09:45:05 2001
+++ perl/regexec.c Sat Aug 4 09:45:05 2001
@@ -1855,7 +1855,7 @@
#ifdef USE_ITHREADS
{
SV* repointer = newSViv(0);
- /* so we know which PL_regex_padav element is PL_curpm */
+ /* so we know which PL_regex_padav element is PL_reg_curpm */
SvFLAGS(repointer) |= SVf_BREAK;
av_push(PL_regex_padav,repointer);
PL_reg_curpm->op_pmoffset = av_len(PL_regex_padav);
End of Patch.
