eliminate PL_reginterp_cnt

This used to be the mechanism to determine whether "use re 'eval'" needed
to be in scope; but now that we make a clear distinction between literal
and runtime code blocks, it's no longer needed.

1 files changed, 1 insertions, 4 deletions

diff --git a/regcomp.c b/regcomp.c
index 7827bb346a..fc13f9dc9e 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -5476,11 +5476,8 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count,
 
 		}
 		else {
-		    if (SvROK(msv) && SvTYPE(SvRV(msv)) == SVt_REGEXP) {
+		    if (SvROK(msv) && SvTYPE(SvRV(msv)) == SVt_REGEXP)
 			msv = SvRV(msv);
-			PL_reginterp_cnt +=
-			    RX_SEEN_EVALS((REGEXP *)MUTABLE_PTR(msv));
-		    }
 		    sv_catsv_nomg(pat, msv);
 		    if (code)
 			pRExC_state->code_blocks[n-1].end = SvCUR(pat)-1;