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

1 files changed, 0 insertions, 7 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 0bb6919709..f5a016fcdc 100644
--- 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);