summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDoug MacEachern <dougm@covalent.net>2001-07-12 03:11:28 -0700
committerJarkko Hietaniemi <jhi@iki.fi>2001-07-12 16:12:23 +0000
commitc5f5134539549c45f3e070e3c839fb57b3f2b2f8 (patch)
treeec9d3294aaee2ec0f4b7b103664b0f63979efda8
parent421e5dc37afb0f200f7b7aae87d7e323a6182239 (diff)
downloadperl-c5f5134539549c45f3e070e3c839fb57b3f2b2f8.tar.gz
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
-rw-r--r--op.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index 28c93d8ff4..98239d9dd8 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);
}