X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSDL%2FSurface.pm;h=6a78eb3ee29c37111457390285a49a84bdea8619;hb=5ccf0b03b8b768a2b11d271f45929e4098c7374a;hp=897234c555705fa6742dd5a0d9b8fc23c38a2ed4;hpb=d99c96f664d4845fc2b4fe3d03a5d859b4f724ba;p=sdlgit%2FSDL_perl.git

diff --git a/lib/SDL/Surface.pm b/lib/SDL/Surface.pm
index 897234c..6a78eb3 100644
--- a/lib/SDL/Surface.pm
+++ b/lib/SDL/Surface.pm
@@ -208,7 +208,9 @@ sub blit {
 		croak "SDL::Surface::blit requires SDL::Surface objects"
 			unless $_[2]->isa('SDL::Surface'); 
 	}
-		SDL::BlitSurface( $_[0], $_[1], ${$_[2]}, $_[3]);
+	#BlitSurface ( src, src_rect, dest, dest_rect )
+
+		SDL::BlitSurface( ${$_[0]}, $_[1], ${$_[2]}, $_[3]);
 }
 
 sub set_colors {