From: Robin Houston <robin@cpan.org>
Date: Mon, 7 May 2001 21:56:12 +0000 (+0100)
Subject: Insecure regexes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5b61d3f7dfbc584e5fc26efd6f6f69c8add9b476;p=p5sagit%2Fp5-mst-13.2.git

Insecure regexes
Message-ID: <20010507215612.A31114@penderel>

p4raw-id: //depot/perl@10021
---

diff --git a/regcomp.c b/regcomp.c
index da54f96..bf77ee6 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -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");
 		}