end pod processing when source file is closed (prevents it carrying

over into require()d files)

p4raw-id: //depot/maint-5.005/perl@1730

1 files changed, 1 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index b5315fa06a..c069978f61 100644
--- a/toke.c
+++ b/toke.c
@@ -1822,6 +1822,7 @@ yylex(void)
 		    else
 			(void)PerlIO_close(PL_rsfp);
 		    PL_rsfp = Nullfp;
+		    PL_doextract = FALSE;
 		}
 		if (!PL_in_eval && (PL_minus_n || PL_minus_p)) {
 		    sv_setpv(PL_linestr,PL_minus_p ? ";}continue{print" : "");