From: Doug MacEachern <dougm@covalent.net>
Date: Thu, 12 Jul 2001 10:11:28 +0000 (-0700)
Subject: Re: [PATCH] Threadsafe PMOPs! We might still win this war.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c5f5134539549c45f3e070e3c839fb57b3f2b2f8;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);
         }