From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 11 Dec 2011 02:02:07 +0000 (-0600)
Subject: need these for older perl versions
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=21f4126b5fdf6fe80a12e85574b9f8a9134ca610;p=gitmo%2FPackage-Stash-XS.git

need these for older perl versions
---

diff --git a/XS.xs b/XS.xs
index 294b819..ac75038 100644
--- a/XS.xs
+++ b/XS.xs
@@ -28,6 +28,14 @@
 #define GvCV_set(gv, cv) (GvCV(gv) = (CV*)(cv))
 #endif
 
+#ifndef MUTABLE_PTR
+#define MUTABLE_PTR(p) ((void *) (p))
+#endif
+
+#ifndef MUTABLE_SV
+#define MUTABLE_SV(p) ((SV *)MUTABLE_PTR(p))
+#endif
+
 #ifndef SVT_SCALAR
 #define SVT_SCALAR(svt) (svt <= SVt_PVLV)
 #endif