From 21f4126b5fdf6fe80a12e85574b9f8a9134ca610 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 10 Dec 2011 20:02:07 -0600
Subject: need these for older perl versions

---
 XS.xs | 8 ++++++++
 1 file changed, 8 insertions(+)

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
-- 
cgit v1.2.3-54-g00ecf