diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-08-08 23:57:01 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-14 12:54:05 -0700 |
| commit | b66130dd0dcaf72b6e443ebde808ff3b8ff9c885 (patch) | |
| tree | b63612384ab492310823ce54c709401795d03e07 /gv.c | |
| parent | be1b855bbb2f62dad5aa5efb8dc5bce980ad4086 (diff) | |
| download | perl-b66130dd0dcaf72b6e443ebde808ff3b8ff9c885.tar.gz | |
Move pp_-specific code out of core_prototype
Commit b8c38f0a2a65 refactored pp_prototype by moving much of its
code to a new function in op.c, called core_prototype. This served
two purposes: (1) to allow the code to be simplified, which required
the use of static functions in op.c, and (2) to allow the &CORE::subs
feature to share the same code.
But some code was moved to core_prototype which, in hindsight, did not
need to be moved, such as the ‘Can’t find an opnumber’ message.
This commit moves that code back to pp_prototype, resulting in a sim-
pler (and possibly faster, at least for &CORE::subs) core_prototype.
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1361,7 +1361,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, CvFILE(cv) = (char *)file; CvISXSUB_on(cv); CvXSUB(cv) = core_xsub; - (void)core_prototype((SV *)cv, name, code, &opnum, 0); + (void)core_prototype((SV *)cv, name, code, &opnum); opnumsv = opnum ? newSVuv((UV)opnum) : (SV *)NULL; cv_set_call_checker( cv, Perl_ck_entersub_args_core, opnumsv ? opnumsv : (SV *)cv |