[patch] ignore PL_curpm in PL_regex_padav cleanup

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

p4raw-id: //depot/perl@11567

1 files changed, 2 insertions, 0 deletions

diff --git a/regexec.c b/regexec.c
index 31a1c6abf1..ceed381952 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1855,6 +1855,8 @@ 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 */
+                SvFLAGS(repointer) |= SVf_BREAK;
                 av_push(PL_regex_padav,repointer);
                 PL_reg_curpm->op_pmoffset = av_len(PL_regex_padav);
                 PL_regex_pad = AvARRAY(PL_regex_padav);