From 577e12cc4ababd31ea5d99718f699d57deab1b2c Mon Sep 17 00:00:00 2001 From: Doug MacEachern Date: Sat, 4 Aug 2001 02:43:02 -0700 Subject: [PATCH] Re: [patch] ignore PL_curpm in PL_regex_padav cleanup Message-ID: p4raw-id: //depot/perl@11574 --- perl.c | 2 +- regexec.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/perl.c b/perl.c index b3d1e31..28e8761 100644 --- a/perl.c +++ b/perl.c @@ -481,7 +481,7 @@ perl_destruct(pTHXx) 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; diff --git a/regexec.c b/regexec.c index ceed381..6fd4c0f 100644 --- a/regexec.c +++ b/regexec.c @@ -1855,7 +1855,7 @@ S_regtry(pTHX_ regexp *prog, char *startpos) #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); -- 2.7.4