diff options
-rw-r--r-- | embed.fnc | 2 | ||||
-rw-r--r-- | toke.c | 17 |
2 files changed, 18 insertions, 1 deletions
@@ -1780,7 +1780,7 @@ Tp |Signal_t |sighandler3 |int sig|NULLOK Siginfo_t *info|NULLOK void *uap CTp |Signal_t |csighandler3 |int sig|NULLOK Siginfo_t *info|NULLOK void *uap CTp |Signal_t |perly_sighandler |int sig|NULLOK Siginfo_t *info|NULLOK void *uap|bool safe Cp |SV** |stack_grow |NN SV** sp|NN SV** p|SSize_t n -Ap |I32 |start_subparse |I32 is_format|U32 flags +Apd |I32 |start_subparse |I32 is_format|U32 flags Xp |void |init_named_cv |NN CV *cv|NN OP *nameop : Used in pp_ctl.c p |void |sub_crush_depth|NN CV* cv @@ -12413,6 +12413,23 @@ S_scan_formline(pTHX_ char *s) return s; } +/* +=for apidoc start_subparse + +Set things up for parsing a subroutine. + +If C<is_format> is non-zero, the input is to be considered a format sub +(a specialised sub used to implement perl's C<format> feature); else a +normal C<sub>. + +C<flags> are added to the flags for C<PL_compcv>. + +This returns the value of C<PL_savestack_ix> that was in effect upon entry to +the function; + +=cut +*/ + I32 Perl_start_subparse(pTHX_ I32 is_format, U32 flags) { |