diff options
author | Zefram <zefram@fysh.org> | 2010-10-13 19:05:19 +0100 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-21 05:52:30 -0700 |
commit | f07ec6dd59215a56bc1159449a9631be7a02a94d (patch) | |
tree | 11506817a1f4546234403635605c632e58a24f2b /pp_ctl.c | |
parent | a3a44df66ac2cb0beb603b3dd9697fd81cfcfb30 (diff) | |
download | perl-f07ec6dd59215a56bc1159449a9631be7a02a94d.tar.gz |
remove filter inheritance option from lex_start
The only uses of lex_start that had the new_filter parameter false,
to make the new lexer context share source filters with the previous
lexer context, were uses with rsfp null, which therefore never invoked
source filters. Inheriting source filters from a logically unrelated
file seems like a silly idea anyway.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2993,7 +2993,7 @@ Perl_sv_compile_2op(pTHX_ SV *sv, OP** startop, const char *code, PAD** padp) PERL_ARGS_ASSERT_SV_COMPILE_2OP; ENTER_with_name("eval"); - lex_start(sv, NULL, FALSE); + lex_start(sv, NULL); SAVETMPS; /* switch to eval mode */ @@ -3767,7 +3767,7 @@ PP(pp_require) ENTER_with_name("eval"); SAVETMPS; - lex_start(NULL, tryrsfp, TRUE); + lex_start(NULL, tryrsfp); SAVEHINTS(); PL_hints = 0; @@ -3862,7 +3862,7 @@ PP(pp_entereval) TAINT_PROPER("eval"); ENTER_with_name("eval"); - lex_start(sv, NULL, FALSE); + lex_start(sv, NULL); SAVETMPS; /* switch to eval mode */ |