Fix bug with TTFSizeText, it actually returns 0 on success

[sdlgit/SDL_perl.git] / src / SDL.xs

diff --git a/src/SDL.xs b/src/SDL.xs
index 01c5171..7f30468 100644 (file)
--- a/src/SDL.xs
+++ b/src/SDL.xs
@@ -2930,15 +2930,14 @@ TTFSizeText ( font, text )
                RETVAL = newAV();
                if(TTF_SizeText(font,text,&w,&h))
                {
-                       av_push(RETVAL,newSViv(w));
-                       av_push(RETVAL,newSViv(h));
-                       sv_2mortal((SV*)RETVAL);
+                       printf("TTF error at TTFSizeText: %s \n", TTF_GetError());
+                       Perl_croak (aTHX_ "TTF error \n");
                }
                else
                {
-                        printf("TTF error at TTFSizeText: %s \n", TTF_GetError()); 
-                        Perl_croak (aTHX_ "TTF error \n");     
-       
+                       av_push(RETVAL,newSViv(w));
+                       av_push(RETVAL,newSViv(h));
+                       sv_2mortal((SV*)RETVAL);
                }