From: Artur Bergman <sky@nanisky.com>
Date: Thu, 12 Jul 2001 09:48:06 +0000 (+0200)
Subject: fix for PMOP threadness failures
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=09687e5a07994ac5284915dd5873add3f29dda9e;p=p5sagit%2Fp5-mst-13.2.git

fix for PMOP threadness failures
Message-ID: <B77322D6.22DD%artur@contiller.se>

p4raw-id: //depot/perl@11299
---

diff --git a/regexec.c b/regexec.c
index b5f8f47..0e780d0 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1850,8 +1850,17 @@ S_regtry(pTHX_ regexp *prog, char *startpos)
 	    PL_reg_oldpos   = mg->mg_len;
 	    SAVEDESTRUCTOR_X(restore_pos, 0);
         }
-	if (!PL_reg_curpm)
+        if (!PL_reg_curpm) {
 	    Newz(22,PL_reg_curpm, 1, PMOP);
+#ifdef USE_ITHREADS
+            {
+                SV* repointer = newSViv(0);
+                av_push(PL_regex_padav,repointer);
+                PL_reg_curpm->op_pmoffset = av_len(PL_regex_padav);
+                PL_regex_pad = AvARRAY(PL_regex_padav);
+            }
+#endif      
+        }
 	PM_SETRE(PL_reg_curpm, prog);
 	PL_reg_oldcurpm = PL_curpm;
 	PL_curpm = PL_reg_curpm;