diff options
| author | Ruslan Zakirov <ruz@bestpractical.com> | 2013-02-24 16:05:51 +0400 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-06-30 11:43:41 -0700 |
| commit | 36925d9e116d2779c960f8cac847f9ccd4c43e53 (patch) | |
| tree | 503e3638a0ae7a533c4adabbc39058df70d91a93 /pp.c | |
| parent | a38ab4751f3c0df44dc09e4d685a2637e93c9778 (diff) | |
| download | perl-36925d9e116d2779c960f8cac847f9ccd4c43e53.tar.gz | |
change magic_methcall to use SV with shared hash value
Perl_magic_methcall is not public API, so there is no
need to add another function and we can just change
function's arguments.
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -5153,7 +5153,7 @@ PP(pp_unshift) PUSHMARK(MARK); PUTBACK; ENTER_with_name("call_UNSHIFT"); - call_method("UNSHIFT",G_SCALAR|G_DISCARD|G_METHOD_NAMED); + call_sv(SV_CONST(UNSHIFT),G_SCALAR|G_DISCARD|G_METHOD_NAMED); LEAVE_with_name("call_UNSHIFT"); SPAGAIN; } @@ -5711,7 +5711,7 @@ PP(pp_split) else { 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; if (gimme == G_ARRAY) { |