From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Mon, 17 Aug 2009 01:09:43 +0000 (-0400)
Subject: Do not need to fail ttf font if SDL::Debug not set
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5dc5fc0c26845bd81ab17f2fbf96f0d2077c3bfa;p=sdlgit%2FSDL_perl.git

Do not need to fail ttf font if SDL::Debug not set
---

diff --git a/lib/SDL/Tool/Font.pm b/lib/SDL/Tool/Font.pm
index b66267f..ab8958e 100644
--- a/lib/SDL/Tool/Font.pm
+++ b/lib/SDL/Tool/Font.pm
@@ -77,7 +77,7 @@ sub DESTROY {
 sub print {
 	my ($self,$surface,$x,$y,@text) = @_;
 	croak "Tool::Font::print requires a SDL::Surface\n"
-		unless ($SDL::DEBUG && $surface->isa('SDL::Surface'));
+		unless ($surface->isa('SDL::Surface'));
 	if ($$self{-font}->isa('SDL::Font')) {
 		$$self{-font}->use();
 		SDL::SFont::PutString( $$surface, $x, $y, join('',@text));