projects
/
sdlgit/SDL_perl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Fixed test. But the returned value for the fuction SDL::TTFSizeUTF8 seems weird
[sdlgit/SDL_perl.git]
/
src
/
SDL.xs
diff --git
a/src/SDL.xs
b/src/SDL.xs
index
3ebfcf8
..
5f73b68
100644
(file)
--- 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