From 8620f760b69bfb4fd8d555b9f89f259fd8a7192b 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/qpid@1529269 13f79535-47bb-0310-9956-ffa450edef68 --- cpp/include/qpid/swig_perl_typemaps.i | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'cpp/include') diff --git a/cpp/include/qpid/swig_perl_typemaps.i b/cpp/include/qpid/swig_perl_typemaps.i index da24bfe402..f1425ebd67 100644 --- a/cpp/include/qpid/swig_perl_typemaps.i +++ b/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