From: Vincent Pit <vince@profvince.com>
Date: Sat, 27 Dec 2008 09:07:35 +0000 (+0100)
Subject: More compatibility macros
X-Git-Tag: v0.02~12
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=65980d1bb9eb9b7e32cf80df50a4b52f1924dc3b;p=perl%2Fmodules%2FScope-Upper.git

More compatibility macros
---

diff --git a/Upper.xs b/Upper.xs
index 09bfe6c..7e386a3 100644
--- 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 {