Re: [PATCH] Threadsafe PMOPs! We might still win this war.

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

p4raw-id: //depot/perl@11313

diff --git a/op.c b/op.c
index 28c93d8..98239d9 100644 (file)
--- a/op.c
+++ b/op.c
@@ -2951,7 +2951,7 @@ Perl_newPMOP(pTHX_ I32 type, I32 flags)
  #ifdef USE_ITHREADS
         {
                 SV* repointer = newSViv(0);
-                av_push(PL_regex_padav,repointer);
+                av_push(PL_regex_padav,SvREFCNT_inc(repointer));
                 pmop->op_pmoffset = av_len(PL_regex_padav);
                 PL_regex_pad = AvARRAY(PL_regex_padav);
         }