This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
avoid use of operator name in macro
authorRobin Barker <rmbarker@cpan.org>
Wed, 21 Apr 2010 23:37:34 +0000 (00:37 +0100)
committerRafael Garcia-Suarez <rgs@consttype.org>
Mon, 26 Apr 2010 13:15:34 +0000 (15:15 +0200)
pp.c
pp.h

diff --git a/pp.c b/pp.c
index 2c5f69a..3cc8869 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -2485,14 +2485,14 @@ PP(pp_negate)
 
 PP(pp_not)
 {
-    dVAR; dSP; tryAMAGICunSET(not);
+    dVAR; dSP; tryAMAGICunSET_var(not_amg);
     *PL_stack_sp = boolSV(!SvTRUE(*PL_stack_sp));
     return NORMAL;
 }
 
 PP(pp_complement)
 {
-    dVAR; dSP; dTARGET; tryAMAGICun(compl);
+    dVAR; dSP; dTARGET; tryAMAGICun_var(compl_amg);
     {
       dTOPss;
       SvGETMAGIC(sv);
diff --git a/pp.h b/pp.h
index c36502a..a107dda 100644 (file)
--- a/pp.h
+++ b/pp.h
@@ -450,6 +450,7 @@ Does not use C<TARG>.  See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>.
 
 #define tryAMAGICun_var(meth_enum) tryAMAGICunW_var(meth_enum,SETsvUN,0,RETURN)
 #define tryAMAGICun(meth)      tryAMAGICun_var(CAT2(meth,_amg))
+#define tryAMAGICunSET_var(meth_enum) tryAMAGICunW_var(meth_enum,SETs,0,RETURN)
 #define tryAMAGICunSET(meth)   tryAMAGICunW(meth,SETs,0,RETURN)
 #define tryAMAGICunTARGET(meth, shift)                                 \
        STMT_START { dSP; sp--;         /* get TARGET from below PL_stack_sp */         \