This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
adjust testsuite for change#3067
[perl5.git] / pp.h
diff --git a/pp.h b/pp.h
index 6402002..e9bb113 100644 (file)
--- a/pp.h
+++ b/pp.h
                Renew(PL_tmps_stack, PL_tmps_max = PL_tmps_ix + (n) + 1, SV*); \
        } STMT_END
 
-#ifdef OVERLOAD
-
 #define AMGf_noright   1
 #define AMGf_noleft    2
 #define AMGf_assign    4
     SvREFCNT_dec(tmpRef);                   \
     SvRV(rv)=AMG_CALLun(rv,copy);        \
   } } STMT_END
-#else
-
-#define tryAMAGICbin(a,b)
-#define tryAMAGICbinSET(a,b)
-#define tryAMAGICun(a)
-#define tryAMAGICunSET(a)
-
-#endif /* OVERLOAD */