From 22d15de65453244c94a2e23d60dc8f22ab1994ef Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 25 Jan 2011 00:39:30 -0600
Subject: xs forward compat

---
 XS.xs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'XS.xs')

diff --git a/XS.xs b/XS.xs
index b0519de..159aa5a 100644
--- a/XS.xs
+++ b/XS.xs
@@ -24,6 +24,10 @@
 #define savesvpv(s) savepv(SvPV_nolen(s))
 #endif
 
+#ifndef GvCV_set
+#define GvCV_set(gv, cv) (GvCV(gv) = (CV*)(cv))
+#endif
+
 /* HACK: scalar slots are always populated on perl < 5.10, so treat undef
  * as nonexistent. this is consistent with the previous behavior of the pure
  * perl version of this module (since this is the behavior that perl sees
@@ -68,7 +72,7 @@
 } while (0)
 #define GvSetCV(g,v) do {               \
     SvREFCNT_dec(GvCV(g));              \
-    if ((GvCV(g) = (CV*)(v))) {         \
+    if ((GvCV_set(g, v))) {             \
         GvIMPORTED_CV_on(g);            \
         GvASSUMECV_on(g);               \
     }                                   \
-- 
cgit v1.2.3-54-g00ecf