From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 14 Nov 2010 04:19:27 +0000 (-0600)
Subject: make sure the SV glob slot is always populated on 5.8
X-Git-Tag: 0.14~19
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3720d1a13fa8f0ac849cfaf320efc847db454cca;p=gitmo%2FPackage-Stash-XS.git

make sure the SV glob slot is always populated on 5.8
---

diff --git a/Stash.xs b/Stash.xs
index 0ff9d32..9feb860 100644
--- a/Stash.xs
+++ b/Stash.xs
@@ -39,11 +39,21 @@
 #define GvCVOK(g) GvCVu(g) /* XXX: should this really be GvCVu? or GvCV? */
 #define GvIOOK(g) GvIO(g)
 
+#if PERL_VERSION < 10
+#define GvSetSV(g,v) do {               \
+    SV *_v = (SV*)(v);                  \
+    SvREFCNT_dec(GvSV(g));              \
+    if ((GvSV(g) = _v ? _v : newSV(0))) \
+        GvIMPORTED_SV_on(g);            \
+} while (0)
+#else
 #define GvSetSV(g,v) do {               \
     SvREFCNT_dec(GvSV(g));              \
     if ((GvSV(g) = (SV*)(v)))           \
         GvIMPORTED_SV_on(g);            \
 } while (0)
+#endif
+
 #define GvSetAV(g,v) do {               \
     SvREFCNT_dec(GvAV(g));              \
     if ((GvAV(g) = (AV*)(v)))           \