diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-21 08:50:22 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-21 08:50:22 +0000 |
| commit | 923e4eb5b872f0800559dcb72be02dea329298f2 (patch) | |
| tree | 32c395e2e019be7fa91d52b767b98ab578d22149 /regcomp.c | |
| parent | 4c11337c0371dac743b0b266e8ebc6f347fa0cd9 (diff) | |
| download | perl-923e4eb5b872f0800559dcb72be02dea329298f2.tar.gz | |
Macrofy the compile/runtime test.
p4raw-id: //depot/perl@21297
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2253,13 +2253,13 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp) } else { /* First pass */ if (PL_reginterp_cnt < ++RExC_seen_evals - && PL_curcop != &PL_compiling) + && IN_PERL_RUNTIME) /* No compiled RE interpolated, has runtime components ===> unsafe. */ FAIL("Eval-group not allowed at runtime, use re 'eval'"); if (PL_tainting && PL_tainted) FAIL("Eval-group in insecure regular expression"); - if (PL_curcop == &PL_compiling) + if (IN_PERL_COMPILETIME) PL_cv_has_eval = 1; } |