Not quite so relicy as thought in #11651 (op/concat #4 and #5

stopped working).

p4raw-id: //depot/perl@11653

1 files changed, 4 insertions, 0 deletions

diff --git a/op.h b/op.h
index af8280b269..e92b1d8db4 100644
--- a/op.h
+++ b/op.h
@@ -263,6 +263,10 @@ struct pmop {
 
 #define PMdf_USED	0x01		/* pm has been used once already */
 #define PMdf_TAINTED	0x02		/* pm compiled from tainted pattern */
+#define PMdf_UTF8	0x04		/* pm compiled from utf8 data */
+#define PMdf_DYN_UTF8	0x08
+
+#define PMdf_CMP_UTF8	(PMdf_UTF8|PMdf_DYN_UTF8)
 
 #define PMf_RETAINT	0x0001		/* taint $1 etc. if target tainted */
 #define PMf_ONCE	0x0002		/* use pattern only once per reset */