From 3720d1a13fa8f0ac849cfaf320efc847db454cca Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 13 Nov 2010 22:19:27 -0600
Subject: make sure the SV glob slot is always populated on 5.8

---
 Stash.xs | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'Stash.xs')

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