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 (file)
--- 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))