diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-01-03 22:32:16 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-01-03 22:32:16 -0600 |
commit | 387d470b296306ec8003cb489da635002bed1707 (patch) | |
tree | df6ff14614ae4b9a7115c02a5dbbfe432619bfc2 | |
parent | b21d0fe82fdfef1bfd2f1e339ab403126a23df94 (diff) | |
download | package-stash-xs-387d470b296306ec8003cb489da635002bed1707.tar.gz package-stash-xs-387d470b296306ec8003cb489da635002bed1707.zip |
can't call gv_init on a stash without a name (sigh, again)
-rw-r--r-- | XS.xs | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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 */ |