move PL_rsfp into the PL_parser struct

and simplify its creation and destruction

p4raw-id: //depot/perl@31199

1 files changed, 1 insertions, 0 deletions

diff --git a/parser.h b/parser.h
index 1df14b4210..082e493fd8 100644
--- a/parser.h
+++ b/parser.h
@@ -70,6 +70,7 @@ 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 */
 
 #ifdef PERL_MAD
     SV		*endwhite;