From 387d470b296306ec8003cb489da635002bed1707 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 3 Jan 2013 22:32:16 -0600
Subject: can't call gv_init on a stash without a name (sigh, again)

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

diff --git a/XS.xs b/XS.xs
index 9fdd2cc..a5ee669 100644
--- a/XS.xs
+++ b/XS.xs
@@ -332,6 +332,9 @@ static void _real_gv_init(GV *gv, HV *stash, SV *name)
     STRLEN name_len;
 
     name_pv = SvPV(name, name_len);
+    if (!HvENAME_get(stash)) {
+        hv_name_set(stash, "__ANON__", 8, 0);
+    }
     gv_init(gv, stash, name_pv, name_len, 1);
 
     /* XXX: copied and pasted from gv_fetchpvn_flags and such */
-- 
cgit v1.2.3