diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-18 18:09:07 -0500 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-19 04:10:43 +0000 |
commit | 189b2af51bf236b53a02db0b105a3de423d3fff4 (patch) | |
tree | e144975915f994ffa46db0ce8f0bc73998c7566d /sv.c | |
parent | f5cd9d9c4a18b1d2556c41570273131b83659fe4 (diff) | |
download | perl-189b2af51bf236b53a02db0b105a3de423d3fff4.tar.gz |
[win32] Fix autovivification problems with XSUB OUTPUT args
Message-Id: <199801190409.XAA26710@aatma.engin.umich.edu>
Subject: [PATCH] XSUB OUTPUT arguments and 'set' magic
p4raw-id: //depot/win32/perl@430
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -3906,8 +3906,10 @@ newSVrv(SV *rv, char *classname) SV* sv_setref_pv(SV *rv, char *classname, void *pv) { - if (!pv) + if (!pv) { sv_setsv(rv, &sv_undef); + SvSETMAGIC(rv); + } else sv_setiv(newSVrv(rv,classname), (IV)pv); return rv; |