From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Sat, 15 Aug 2009 19:27:41 +0000 (-0400)
Subject: More fixes and error reporting
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ee3c7a417ea0035889dbff430698ccfd4bc6fa9;p=sdlgit%2FSDL_perl.git

More fixes and error reporting
---

diff --git a/lib/SDL/Surface.pm b/lib/SDL/Surface.pm
index 7075482..49a2b29 100644
--- a/lib/SDL/Surface.pm
+++ b/lib/SDL/Surface.pm
@@ -203,6 +203,7 @@ sub flip {
 
 sub blit {
 	if ($SDL::DEBUG) {
+		croak "SDL::Surface::blit does not accept undef use SDL::NULL" if ( !defined($_[1]) || !defined($_[3]) );
 		croak "SDL::Surface::blit requires SDL::Rect objects"
 			unless ($_[1] == 0 || $_[1]->isa('SDL::Rect'))
 			&& ($_[3] == 0 || $_[3]->isa('SDL::Rect'));