diff options
| author | David Mitchell <davem@iabyn.com> | 2012-04-01 13:14:09 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2012-06-13 13:32:51 +0100 |
| commit | f59909ab8dad6ceb1b77e37e3c84e0c43fa33064 (patch) | |
| tree | cbf4ba4c791f0131214c069cef31b0fa91f1c5a8 /regcomp.c | |
| parent | 471f538719f520bc908ac57ec9f3cb8526773f10 (diff) | |
| download | perl-f59909ab8dad6ceb1b77e37e3c84e0c43fa33064.tar.gz | |
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.
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -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; |