diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-12-08 16:52:37 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-12-09 18:47:21 -0800 |
| commit | fc99edcf6b3d3de59f7bdefc42a09167fd8b96f5 (patch) | |
| tree | 168ee3780065d07103930e86c76ff5689efa8567 /pp.h | |
| parent | 05fbd38ddf3c46a4eef17ff66379724f742f015f (diff) | |
| download | perl-fc99edcf6b3d3de59f7bdefc42a09167fd8b96f5.tar.gz | |
Remove the second param to tryAMAGICunTARGETlist
This parameter is no longer used. Its value is always 0.
Diffstat (limited to 'pp.h')
| -rw-r--r-- | pp.h | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -420,18 +420,17 @@ Does not use C<TARG>. See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>. /* No longer used in core. Use AMG_CALLunary instead */ #define AMG_CALLun(sv,meth) AMG_CALLunary(sv, CAT2(meth,_amg)) -#define tryAMAGICunTARGETlist(meth, shift, jump) \ +#define tryAMAGICunTARGETlist(meth, jump) \ STMT_START { \ dSP; \ SV *tmpsv; \ - SV *arg= sp[shift]; \ + SV *arg= *sp; \ int gimme = GIMME_V; \ if (SvAMAGIC(arg) && \ (tmpsv = amagic_call(arg, &PL_sv_undef, meth, \ AMGf_want_list | AMGf_noright \ |AMGf_unary))) { \ SPAGAIN; \ - sp += shift; \ if (gimme == G_VOID) { \ (void)POPs; /* XXX ??? */ \ } \ |