From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Sun, 23 Aug 2009 15:59:56 +0000 (-0400)
Subject: Fixed test. But the returned value for the fuction SDL::TTFSizeUTF8 seems weird
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=934c9cfeead91f933a91dda3e78f9e47da8ac251;p=sdlgit%2FSDL_perl.git

Fixed test. But the returned value for the fuction SDL::TTFSizeUTF8 seems weird
---

diff --git a/src/SDL.xs b/src/SDL.xs
index 3ebfcf8..5f73b68 100644
--- a/src/SDL.xs
+++ b/src/SDL.xs
@@ -2993,8 +2993,11 @@ TTFSizeUTF8 ( font, text )
 		int w,h;
 		RETVAL = newAV();
 		TTF_SizeUTF8(font,text,&w,&h);
-		av_push(RETVAL,newSViv(w));
-		av_push(RETVAL,newSViv(h));
+			av_push(RETVAL,newSViv(w));
+			av_push(RETVAL,newSViv(h));
+		
+		sv_2mortal((SV*)RETVAL);
+		
 	OUTPUT:
 		RETVAL
 
diff --git a/t/toolfontpm.t b/t/toolfontpm.t
index 6bdcf6b..5464c69 100644
--- a/t/toolfontpm.t
+++ b/t/toolfontpm.t
@@ -38,7 +38,6 @@ BEGIN {
 use strict;
 use SDL;
 use SDL::Config;
-
 use Test::More;
 
 if ( SDL::Config->has('SDL_image')