diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-02-26 14:49:47 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-05-29 18:47:40 +0000 |
| commit | b5c19bd7c15bd02a18c3c2b80b6f602827ecdbcc (patch) | |
| tree | 62bd6c218608670924b1f52603773478868e7f69 /regcomp.c | |
| parent | d3f88289ec6f15b80a5a99970a0ca8fd4c679869 (diff) | |
| download | perl-b5c19bd7c15bd02a18c3c2b80b6f602827ecdbcc.tar.gz | |
jumbo closure fix
Message-ID: <20030226144947.A14444@fdgroup.com>
p4raw-id: //depot/perl@19637
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -2259,8 +2259,10 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp) 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) + PL_cv_has_eval = 1; } - + nextchar(pRExC_state); if (logical) { ret = reg_node(pRExC_state, LOGICAL); |