diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-12-08 16:48:32 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-12-09 18:47:21 -0800 |
| commit | 05fbd38ddf3c46a4eef17ff66379724f742f015f (patch) | |
| tree | e50512bace96ce246a90c3de54d7b88c75f23e2f /pp.h | |
| parent | 8936b48a49448f4e7b8a0b9849a085b48ac700ff (diff) | |
| download | perl-05fbd38ddf3c46a4eef17ff66379724f742f015f.tar.gz | |
pp.h: Remove tryAMAGICunTARGET
This macro is unused on CPAN and completely undocumented, so this
change should be safe.
Diffstat (limited to 'pp.h')
| -rw-r--r-- | pp.h | 11 |
1 files changed, 4 insertions, 7 deletions
@@ -420,11 +420,7 @@ 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 tryAMAGICunTARGET(meth, shift, jump) \ - tryAMAGICunTARGET_flags(meth, shift, jump, 0) -#define tryAMAGICunTARGETlist(meth, shift, jump) \ - tryAMAGICunTARGET_flags(meth, shift, jump, AMGf_want_list) -#define tryAMAGICunTARGET_flags(meth, shift, jump, flags) \ +#define tryAMAGICunTARGETlist(meth, shift, jump) \ STMT_START { \ dSP; \ SV *tmpsv; \ @@ -432,13 +428,14 @@ Does not use C<TARG>. See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>. int gimme = GIMME_V; \ if (SvAMAGIC(arg) && \ (tmpsv = amagic_call(arg, &PL_sv_undef, meth, \ - flags | AMGf_noright | AMGf_unary))) { \ + AMGf_want_list | AMGf_noright \ + |AMGf_unary))) { \ SPAGAIN; \ sp += shift; \ if (gimme == G_VOID) { \ (void)POPs; /* XXX ??? */ \ } \ - else if ((flags & AMGf_want_list) && gimme == G_ARRAY) { \ + else if (gimme == G_ARRAY) { \ int i; \ I32 len; \ assert(SvTYPE(tmpsv) == SVt_PVAV); \ |