diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-12-09 22:46:36 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-12-09 22:46:36 -0600 |
commit | 8a78ba151689b41ba5da384d4a5f525044489dd4 (patch) | |
tree | 985406f8525ff706aa6a8d3a8a67ac40d4d61373 /XS.xs | |
parent | 5e73866488f64bf08aedaaee18ace70ec13a0280 (diff) | |
download | package-stash-xs-8a78ba151689b41ba5da384d4a5f525044489dd4.tar.gz package-stash-xs-8a78ba151689b41ba5da384d4a5f525044489dd4.zip |
use the right glob name here
Diffstat (limited to 'XS.xs')
-rw-r--r-- | XS.xs | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -582,8 +582,11 @@ add_symbol(self, variable, initial=NULL, ...) glob = (GV*)HeVAL(entry); } else { + char *varname_pv; + STRLEN varname_len; glob = (GV*)newSV(0); - gv_init(glob, namespace, "ANON", 4, 1); + varname_pv = SvPV(variable.name, varname_len); + gv_init(glob, namespace, varname_pv, varname_len, 1); if (!hv_store_ent(namespace, variable.name, (SV*)glob, 0)) { croak("hv_store failed"); } |