jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

*** empty log message ***

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5300 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2003-11-11 20:44:32 +00:00
commit 54a11a5f75
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
SWIG/Lib/perl5/perlrun.swg
View file

@ -283,7 +283,7 @@ SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT
hv=GvHVn(gv); hv=GvHVn(gv);
hv_store_ent(hv, obj, newSViv(1), 0); hv_store_ent(hv, obj, newSViv(1), 0);
} }
sv_magic((SV *)hash, (SV *)obj, PERL_MAGIC_tied, Nullch, 0); sv_magic((SV *)hash, (SV *)obj, 'P', Nullch, 0);
SvREFCNT_dec(obj); SvREFCNT_dec(obj);
self=newRV_noinc((SV *)hash); self=newRV_noinc((SV *)hash);
sv_setsv(sv, self); sv_setsv(sv, self);