summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2011-08-02 15:04:47 -0700
committerFather Chrysostomos <sprout@cpan.org>2011-08-14 11:14:58 -0700
commit9927957a90b2fe6bdb0e2be889b2edcddadea174 (patch)
treee265b03cc962927ef503bb225e5e78414349fcf8 /pp.c
parente058c50ad847ead283c43829ad8b0b73f59ef9db (diff)
downloadperl-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.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/pp.c b/pp.c
index 8649bec3cd..a32d0c08c6 100644
--- a/pp.c
+++ b/pp.c
@@ -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;
}