Replace Perl_my() with a small shell script. er. macro.

p4raw-id: //depot/perl@34917

1 files changed, 4 insertions, 0 deletions

diff --git a/op.h b/op.h
index a90be0a5e9..dad6016fdb 100644
--- a/op.h
+++ b/op.h
@@ -614,6 +614,10 @@ struct loop {
    cv_ckproto_len((cv), (gv), (p), (p) ? strlen(p) : 0)
 #endif
 
+#ifdef PERL_CORE
+#  define my(o)	my_attrs((o), NULL)
+#endif
+
 #ifdef USE_REENTRANT_API
 #include "reentr.h"
 #endif