From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Sun, 23 Aug 2009 17:28:56 +0000 (-0400)
Subject: more mem leak fixes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ab9658154181c1aed5c3c5ca5034df3878a9f78d;p=sdlgit%2FSDL_perl.git

more mem leak fixes
---

diff --git a/src/SDL.xs b/src/SDL.xs
index 5f73b68..5cebae7 100644
--- a/src/SDL.xs
+++ b/src/SDL.xs
@@ -2982,6 +2982,8 @@ TTFSizeText ( font, text )
 		TTF_SizeText(font,text,&w,&h);
 		av_push(RETVAL,newSViv(w));
 		av_push(RETVAL,newSViv(h));
+		sv_2mortal((SV*)RETVAL);
+	
 	OUTPUT:
 		RETVAL
 
@@ -3011,6 +3013,8 @@ TTFSizeUNICODE ( font, text )
 		TTF_SizeUNICODE(font,text,&w,&h);
 		av_push(RETVAL,newSViv(w));
 		av_push(RETVAL,newSViv(h));
+		sv_2mortal((SV*)RETVAL);
+
 	OUTPUT:
 		RETVAL