From 2287a2c8e45bee8212dbaf2d08d07a068c9e4bc8 Mon Sep 17 00:00:00 2001 From: William S Fulton Date: Wed, 9 Mar 2005 22:31:55 +0000 Subject: [PATCH] SWIGTYPE out typemap fix - Perl should always take ownership of the memory git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@7055 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- SWIG/Lib/perl5/perl5.swg | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SWIG/Lib/perl5/perl5.swg b/SWIG/Lib/perl5/perl5.swg index 60abf4e90..af9393e5d 100644 --- a/SWIG/Lib/perl5/perl5.swg +++ b/SWIG/Lib/perl5/perl5.swg @@ -148,14 +148,14 @@ { $&1_ltype resultobj = new $1_ltype(($1_ltype &)$1); ST(argvi) = sv_newmortal(); - SWIG_MakePtr(ST(argvi++), (void *) resultobj, $&1_descriptor, $shadow|$owner); + SWIG_MakePtr(ST(argvi++), (void *) resultobj, $&1_descriptor, $shadow|SWIG_OWNER); } #else { $&1_ltype resultobj = ($&1_ltype) malloc(sizeof($1_type)); memmove(resultobj, &$1, sizeof($1_type)); ST(argvi) = sv_newmortal(); - SWIG_MakePtr(ST(argvi++), (void *) resultobj, $&1_descriptor, $shadow|$owner); + SWIG_MakePtr(ST(argvi++), (void *) resultobj, $&1_descriptor, $shadow|SWIG_OWNER); } #endif