diff options
author | Ruslan Zakirov <ruz@bestpractical.com> | 2013-02-25 13:46:02 +0400 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-06-30 11:43:41 -0700 |
commit | 3e0cb5de60bed90602a75e9d726f90b2e60701e0 (patch) | |
tree | 3d83f0cfd5a529b668c26664167ca6c4cd8cf701 /pp.c | |
parent | 36925d9e116d2779c960f8cac847f9ccd4c43e53 (diff) | |
download | perl-3e0cb5de60bed90602a75e9d726f90b2e60701e0.tar.gz |
change tied_method to use SVs with precomputed hash values
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4902,7 +4902,7 @@ PP(pp_splice) const MAGIC * const mg = SvTIED_mg((const SV *)ary, PERL_MAGIC_tied); if (mg) { - return Perl_tied_method(aTHX_ "SPLICE", mark - 1, MUTABLE_SV(ary), mg, + return Perl_tied_method(aTHX_ SV_CONST(SPLICE), mark - 1, MUTABLE_SV(ary), mg, GIMME_V | TIED_METHOD_ARGUMENTS_ON_STACK, sp - mark); } @@ -5100,7 +5100,7 @@ PP(pp_push) PUSHMARK(MARK); PUTBACK; ENTER_with_name("call_PUSH"); - call_method("PUSH",G_SCALAR|G_DISCARD|G_METHOD_NAMED); + call_sv(SV_CONST(PUSH),G_SCALAR|G_DISCARD|G_METHOD_NAMED); LEAVE_with_name("call_PUSH"); SPAGAIN; } |