Make source filters work in evalbytes

When a filter is added, the current buffer is hung on the end of
the filters array, and a new substring of it becomes the current
buffer.

1 files changed, 5 insertions, 1 deletions

diff --git a/parser.h b/parser.h
index c19bc28258..36b1a43f54 100644
--- a/parser.h
+++ b/parser.h
@@ -107,6 +107,7 @@ typedef struct yy_parser {
 
     bool	in_pod;		/* lexer is within a =pod section */
     U8		lex_fakeeof;	/* precedence at which to fake EOF */
+    bool	filtered;	/* source filters in evalbytes */
     U32		lex_flags;
 } yy_parser;
 
@@ -116,8 +117,11 @@ typedef struct yy_parser {
 
 #ifdef PERL_CORE
 # define LEX_START_SAME_FILTER	0x00000001
+# define LEX_IGNORE_UTF8_HINTS	0x00000002
+# define LEX_EVALBYTES		0x00000004
+# define LEX_START_FLAGS \
+	(LEX_START_SAME_FILTER|LEX_IGNORE_UTF8_HINTS|LEX_EVALBYTES)
 #endif
-#define LEX_IGNORE_UTF8_HINTS	0x00000002
 
 /* flags for parser API */
 #define PARSE_OPTIONAL          0x00000001