diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-08-02 15:04:47 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-14 11:14:58 -0700 |
commit | 9927957a90b2fe6bdb0e2be889b2edcddadea174 (patch) | |
tree | e265b03cc962927ef503bb225e5e78414349fcf8 /pp.c | |
parent | e058c50ad847ead283c43829ad8b0b73f59ef9db (diff) | |
download | perl-9927957a90b2fe6bdb0e2be889b2edcddadea174.tar.gz |
Make core_prototype provide the op number as well
Since it has to calculate it, it might as well provide it, so callers
do not have to go through that while(i < MAXO) loop yet again.
(The &CORE::foo feature will use this.)
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -438,7 +438,8 @@ PP(pp_prototype) if (SvPOK(TOPs) && SvCUR(TOPs) >= 7) { const char * s = SvPVX_const(TOPs); if (strnEQ(s, "CORE::", 6)) { - SV *const sv = core_prototype(NULL, s + 6, SvCUR(TOPs) - 6, 1); + SV *const sv = + core_prototype(NULL, s + 6, SvCUR(TOPs) - 6, NULL, 1); if (sv) ret = sv; goto set; } |