From: Father Chrysostomos <sprout@cpan.org>
Date: Sun, 9 Dec 2012 00:48:32 +0000 (-0800)
Subject: pp.h: Remove tryAMAGICunTARGET
X-Git-Tag: upstream/5.20.0~4525
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=05fbd38ddf3c46a4eef17ff66379724f742f015f;p=platform%2Fupstream%2Fperl.git

pp.h: Remove tryAMAGICunTARGET

This macro is unused on CPAN and completely undocumented, so this
change should be safe.
---

diff --git a/pp.h b/pp.h
index 4d5eeec..ca59246 100644
--- a/pp.h
+++ b/pp.h
@@ -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);              \