Re: [patch] ignore PL_curpm in PL_regex_padav cleanup

Message-ID: <Pine.LNX.4.21.0108040939050.23972-100000@mako.covalent.net>

p4raw-id: //depot/perl@11574

2 files changed, 2 insertions, 2 deletions

diff --git a/perl.c b/perl.c
index b3d1e31e0c..28e8761f03 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 ceed381952..6fd4c0fa10 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);