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

p4raw-id: //depot/perl@1334

1 files changed, 1 insertions, 0 deletions

diff --git a/perl.h b/perl.h
index 7f3fd63c1e..9d982ec4de 100644
--- a/perl.h
+++ b/perl.h
@@ -1824,6 +1824,7 @@ typedef enum {
 #define HINT_LOCALIZE_HH	0x00020000 /* %^H needs to be copied */
 
 #define HINT_RE_TAINT		0x00100000
+#define HINT_RE_EVAL		0x00200000
 
 /* Various states of an input record separator SV (rs, nrs) */
 #define RsSNARF(sv)   (! SvOK(sv))