allow eval-groups in patterns only if they C<use re 'eval';>

p4raw-id: //depot/perl@1334

1 files changed, 7 insertions, 0 deletions

diff --git a/regcomp.c b/regcomp.c
index 0a36cbbb4d..b18740cbec 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -1043,6 +1043,13 @@ reg(I32 paren, I32 *flagp)
 		    regcomp_rx->data->data[n+2] = (void*)sop;
 		    SvREFCNT_dec(sv);
 		} else {		/* First pass */
+		    if (curcop == &compiling) {
+			if (!(hints & HINT_RE_EVAL))
+			    FAIL("Eval-group not allowed, use re 'eval'");
+		    }
+		    else {
+			FAIL("Eval-group not allowed at run time");
+		    }
 		    if (tainted)
 			FAIL("Eval-group in insecure regular expression");
 		}