From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 20 Dec 1999 17:09:55 +0000 (+0000)
Subject: revert optimization in change#4700 (it appears OPpRUNTIME flag
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f8bca53996f55892ef15f2efd8c73aa499fb7417;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);