From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 25 Jan 2011 06:39:30 +0000 (-0600)
Subject: xs forward compat
X-Git-Tag: 0.21~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FPackage-Stash-XS.git;a=commitdiff_plain;h=22d15de65453244c94a2e23d60dc8f22ab1994ef

xs forward compat
---

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);               \
     }                                   \