From: Richard Soderberg <p5-authors@crystalflame.net>
Date: Thu, 21 Jun 2001 05:21:43 +0000 (-0700)
Subject: Make /o work under i?threads
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8673f78cbbb777f3c83e7fad05d5b4d4d388e4be;p=p5sagit%2Fp5-mst-13.2.git

Make /o work under i?threads
Message-ID: <Pine.LNX.4.21.0106210518210.2479-100000@oregonnet.com>

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

diff --git a/pp_ctl.c b/pp_ctl.c
index 046c666..81c235e 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -88,6 +88,13 @@ PP(pp_regcomp)
     MAGIC *mg = Null(MAGIC*);
 
     tmpstr = POPs;
+
+    /* prevent recompiling under /o and ithreads. */
+#if defined(USE_ITHREADS) || defined(USE_THREADS)
+    if (pm->op_pmflags & PMf_KEEP && PM_GETRE(pm))
+    	RETURN;
+#endif
+
     if (SvROK(tmpstr)) {
 	SV *sv = SvRV(tmpstr);
 	if(SvMAGICAL(sv))