More compatibility macros

diff --git a/Upper.xs b/Upper.xs
index 09bfe6c88b53f60af09efba285b263c7041250b9..7e386a3be3250e63c55f71415eb039e62bd075cd 100644 (file)
--- a/Upper.xs
+++ b/Upper.xs
@@ -24,6 +24,10 @@
 # define SU_D(X)
 #endif
 
+#ifndef Newx
+# define Newx(v, n, c) New(0, v, n, c)
+#endif
+
 #ifndef SvPV_const
 # define SvPV_const(S, L) SvPV(S, L)
 #endif
@@ -40,6 +44,14 @@
 # define gv_fetchpvn_flags(A, B, C, D) gv_fetchpv((A), (C), (D))
 #endif
 
+#ifndef PERL_MAGIC_tied
+# define PERL_MAGIC_tied 'P'
+#endif
+
+#ifndef PERL_MAGIC_env
+# define PERL_MAGIC_env 'E'
+#endif
+
 #define SU_HAS_PERL(R, V, S) (PERL_REVISION > (R) || (PERL_REVISION == (R) && (PERL_VERSION > (V) || (PERL_VERSION == (V) && (PERL_SUBVERSION >= (S))))))
 
 typedef struct {