revert optimization in change#4700 (it appears OPpRUNTIME flag

isn't set for all m/$foo/o)

p4raw-link: @4700 on //depot/perl: 2360cd68127e75c48ae54a165bf882455ec55e1c

p4raw-id: //depot/perl@4701

diff --git a/pp_ctl.c b/pp_ctl.c
index 0bb6919..f5a016f 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -87,13 +87,6 @@ PP(pp_regcomp)
     STRLEN len;
     MAGIC *mg = Null(MAGIC*);
 
-#if defined(USE_ITHREADS) || defined(USE_THREADS)
-    if ((pm->op_pmflags & PMf_KEEP) && !(pm->op_private & OPpRUNTIME)) {
-       /* no point compiling again */
-       RETURN;
-    }
-#endif
-
     tmpstr = POPs;
     if (SvROK(tmpstr)) {
        SV *sv = SvRV(tmpstr);