From 6f05c50f75c055104275dee247e86f85e7f2711d Mon Sep 17 00:00:00 2001 From: "Darryl L. Pierce" Date: Fri, 4 Oct 2013 19:21:00 +0000 Subject: QPID-4730: Losing object references in Perl. Contributed by Hao Chang Yu git-svn-id: https://svn.apache.org/repos/asf/qpid/trunk@1529269 13f79535-47bb-0310-9956-ffa450edef68 --- qpid/cpp/include/qpid/swig_perl_typemaps.i | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'qpid/cpp/include') diff --git a/qpid/cpp/include/qpid/swig_perl_typemaps.i b/qpid/cpp/include/qpid/swig_perl_typemaps.i index da24bfe402..f1425ebd67 100644 --- a/qpid/cpp/include/qpid/swig_perl_typemaps.i +++ b/qpid/cpp/include/qpid/swig_perl_typemaps.i @@ -192,8 +192,10 @@ } %typemap (out) uint8_t, uint16_t, uint32_t, uint64_t { - sv_setuv($result, (UV)$1); - argvi++; + SV* tmp = sv_newmortal(); + sv_setuv(tmp, (UV)$1); + $result = tmp; + argvi++; } %typemap (in) int8_t, int16_t, int32_t, int64_t { @@ -206,8 +208,10 @@ } %typemap (out) int8_t, int16_t, int32_t, int64_t { - sv_setiv($result, (IV)$1); - argvi++; + SV* tmp = sv_newmortal(); + sv_setiv(tmp, (IV)$1); + $result = tmp; + argvi++; } %typemap(in) bool { -- cgit v1.2.1