Added file t/core_surface.t

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

diff --git a/src/Surface.xs b/src/Surface.xs
index 29e9427..f3805db 100644 (file)
--- a/src/Surface.xs
+++ b/src/Surface.xs
@@ -144,7 +144,7 @@ IV
 surface_get_pixels(surface)
        SDL_Surface *surface
        CODE:
-         printf("Incomplete surface");
+         if(!surface->pixels) croak("Incomplete surface");
          RETVAL = PTR2IV(surface->pixels);
        OUTPUT:
          RETVAL