X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Magic.xs;h=be5e8f8f234f7c3dc0bb9bee1b7a7a59456856d6;hb=ad7c749baf8ebc2ff3e49d44b414f67f13f4ebf2;hp=2f6db15714aef875fce91a292695c0a647b024a4;hpb=77a84f75f33e3ee44e61182dec76699e23025375;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/Magic.xs b/Magic.xs
index 2f6db15..be5e8f8 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -3,6 +3,16 @@
 #include "perl.h"
 #include "XSUB.h"
 
+/* --- Compatibility ------------------------------------------------------- */
+
+#ifndef Newx
+# define Newx(v, n, c) New(0, v, n, c)
+#endif
+
+#ifndef SvMAGIC_set
+# define SvMAGIC_set(sv, val) (SvMAGIC(sv) = (val))
+#endif
+
 #define SIG_WIZ ((U16) (1u << 8 - 1))
 
 #define R(S) fprintf(stderr, "R(" #S ") = %d\n", SvREFCNT(sv))