diff options
| author | Zefram <zefram@fysh.org> | 2010-10-13 21:48:49 +0100 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-21 05:52:57 -0700 |
| commit | 8eaa0acf70f47cc5d3ed085b62e8d46cbc245651 (patch) | |
| tree | edc0d68a0337b2dd2ead7f97324e5f304f65d4b3 /pp_ctl.c | |
| parent | 805700c1a37c475915b7e2c565a2b4ac1dbe5a97 (diff) | |
| download | perl-8eaa0acf70f47cc5d3ed085b62e8d46cbc245651.tar.gz | |
add lex_start to the API
lex_start() is added to the API, marked experimental, and documented.
It also gains a flags parameter for foreseeable future use.
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2992,7 +2992,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); + lex_start(sv, NULL, 0); SAVETMPS; /* switch to eval mode */ @@ -3764,7 +3764,7 @@ PP(pp_require) ENTER_with_name("eval"); SAVETMPS; - lex_start(NULL, tryrsfp); + lex_start(NULL, tryrsfp, 0); SAVEHINTS(); PL_hints = 0; @@ -3859,7 +3859,7 @@ PP(pp_entereval) TAINT_PROPER("eval"); ENTER_with_name("eval"); - lex_start(sv, NULL); + lex_start(sv, NULL, 0); SAVETMPS; /* switch to eval mode */ |