save old PL_curcop value in parser struct

p4raw-id: //depot/perl@31201

1 files changed, 2 insertions, 0 deletions

diff --git a/parser.h b/parser.h
index 02509e49b5..affe7be143 100644
--- a/parser.h
+++ b/parser.h
@@ -96,6 +96,8 @@ typedef struct yy_parser {
     I32		nexttoke;
 #endif
 
+    COP		*saved_curcop;	/* the previous PL_curcop */
+
 } yy_parser;