From: Dave Mitchell <davem@fdisolutions.com>
Date: Tue, 15 May 2007 21:51:03 +0000 (+0000)
Subject: change 31200 broke src filters used within an eval
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=56b27c9aa7f7f437454756acd9a09e4d194e45fe;p=p5sagit%2Fp5-mst-13.2.git

change 31200 broke src filters used within an eval
eg BEGIN { eval q(use MyFilter) } would ignore the filter

p4raw-id: //depot/perl@31225
---

diff --git a/toke.c b/toke.c
index 6819a8e..e00a464 100644
--- a/toke.c
+++ b/toke.c
@@ -686,7 +686,7 @@ Perl_lex_start(pTHX_ SV *line, PerlIO *rsfp, bool new_filter)
     parser->lex_state = LEX_NORMAL;
     parser->expect = XSTATE;
     parser->rsfp = rsfp;
-    parser->rsfp_filters = (new_filter || !oparser) ? NULL
+    parser->rsfp_filters = (new_filter || !oparser) ? newAV()
 		: (AV*)SvREFCNT_inc(oparser->rsfp_filters);
 
     Newx(parser->lex_brackstack, 120, char);