save old PL_curcop value in parser struct

[p5sagit/p5-mst-13.2.git] / parser.h

diff --git a/parser.h b/parser.h
index 1df14b4..affe7be 100644 (file)
--- a/parser.h
+++ b/parser.h
@@ -70,6 +70,8 @@ typedef struct yy_parser {
     char       *last_uni;      /* position of last named-unary op */
     char       *last_lop;      /* position of last list operator */
     U8         lex_state;      /* next token is determined */
+    PerlIO     *rsfp;          /* current source file pointer */
+    AV         *rsfp_filters;  /* holds chain of active source filters */
 
 #ifdef PERL_MAD
     SV         *endwhite;
@@ -94,6 +96,8 @@ typedef struct yy_parser {
     I32                nexttoke;
 #endif
 
+    COP                *saved_curcop;  /* the previous PL_curcop */
+
 } yy_parser;