diff options
| author | Robin Houston <robin@cpan.org> | 2001-05-07 22:56:12 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-07 20:11:31 +0000 |
| commit | 5b61d3f7dfbc584e5fc26efd6f6f69c8add9b476 (patch) | |
| tree | 481a9b60b39ea16e3a677409b93ecc9926cb6c01 /regcomp.c | |
| parent | 5c5bc6298676a4b4656b619ab888503c6386bbc1 (diff) | |
| download | perl-5b61d3f7dfbc584e5fc26efd6f6f69c8add9b476.tar.gz | |
Insecure regexes
Message-ID: <20010507215612.A31114@penderel>
p4raw-id: //depot/perl@10021
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2117,7 +2117,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp) /* No compiled RE interpolated, has runtime components ===> unsafe. */ FAIL("Eval-group not allowed at runtime, use re 'eval'"); - if (PL_tainted) + if (PL_tainting && PL_tainted) FAIL("Eval-group in insecure regular expression"); } |