diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-11-14 10:43:53 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-11-14 10:43:53 -0600 |
commit | 9aa6fe4f1c0b7719085d51b26b2237f071b1a94f (patch) | |
tree | 58fc243e51cdab4801c7e05855ab445bb6cee401 | |
parent | c9623f1be6ce8fe0b0c8cf996d1941b1fd3ef955 (diff) | |
download | package-stash-xs-9aa6fe4f1c0b7719085d51b26b2237f071b1a94f.tar.gz package-stash-xs-9aa6fe4f1c0b7719085d51b26b2237f071b1a94f.zip |
a couple more comments
-rw-r--r-- | Stash.xs | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -39,6 +39,8 @@ #define GvCVOK(g) GvCVu(g) /* XXX: should this really be GvCVu? or GvCV? */ #define GvIOOK(g) GvIO(g) +/* see above - don't let scalar slots become unpopulated, this breaks + * assumptions in core */ #if PERL_VERSION < 10 #define GvSetSV(g,v) do { \ SV *_v = (SV*)(v); \ @@ -461,6 +463,9 @@ add_symbol(self, variable, initial=NULL, ...) } */ + /* GV_ADDMULTI rather than GV_ADD because otherwise you get 'used only + * once' warnings in some situations... i can't reproduce this, but CMOP + * triggers it */ glob = gv_fetchsv(name, GV_ADDMULTI, vartype_to_svtype(variable.type)); if (initial) { |