diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-08-18 22:09:17 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-24 23:37:59 -0700 |
| commit | 1e4b6aa1907f271ce023ffe6f03439e2ce7f65dc (patch) | |
| tree | 66d2f60ccc3e423a6fd77021258a20e81ebfcefc /embed.h | |
| parent | 46e00a91c0fa7d86de7f65504ba0a402c422d58b (diff) | |
| download | perl-1e4b6aa1907f271ce023ffe6f03439e2ce7f65dc.tar.gz | |
Move coresub op-creation from gv.c to op.c
For functions that take handles as arguments, this code will need to
call static functions in op.c, like is_handle_constructor.
While we could make is_handle_constructor into a non-static function
and call it from gv.c, that seems backwards, as it would result in a
lot of op-manipulation code in the middle of gv.c.
So this commit creates a new function in op.c, called coresub_op,
which is only called from gv.c, from the &CORE::sub code.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -1008,6 +1008,7 @@ #define ck_trunc(a) Perl_ck_trunc(aTHX_ a) #define convert(a,b,c) Perl_convert(aTHX_ a,b,c) #define core_prototype(a,b,c,d) Perl_core_prototype(aTHX_ a,b,c,d) +#define coresub_op(a,b,c) Perl_coresub_op(aTHX_ a,b,c) #define create_eval_scope(a) Perl_create_eval_scope(aTHX_ a) #define cv_ckproto_len(a,b,c,d) Perl_cv_ckproto_len(aTHX_ a,b,c,d) #define cvgv_set(a,b) Perl_cvgv_set(aTHX_ a,b) |