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

Fix for Perl incorrectly taking memory ownership for return types that are typedefs to a struct/class pointer

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7051 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2005-03-08 21:55:08 +00:00
commit d9826b509e
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Source/Modules/perl5.cxx
View file

@ -654,8 +654,7 @@ public:
} else { } else {
Replaceall(tm, "$shadow", "0"); Replaceall(tm, "$shadow", "0");
} }
if ((!SwigType_ispointer(t) && !SwigType_isreference(t)) if (Getattr(n,"feature:new")) {
|| Getattr(n,"feature:new")) {
Replaceall(tm,"$owner","SWIG_OWNER"); Replaceall(tm,"$owner","SWIG_OWNER");
} else { } else {
Replaceall(tm,"$owner","0"); Replaceall(tm,"$owner","0");