Importing Variable-Magic-0.02.tar.gz

[perl/modules/Variable-Magic.git] / Magic.xs

diff --git a/Magic.xs b/Magic.xs
index 2f6db15714aef875fce91a292695c0a647b024a4..be5e8f8f234f7c3dc0bb9bee1b7a7a59456856d6 100644 (file)
--- 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))