Fixed XS building

[sdlgit/SDL_perl.git] / lib / SDL / Tool / Font.pm

diff --git a/lib/SDL/Tool/Font.pm b/lib/SDL/Tool/Font.pm
index 3850f6e..02b5c39 100644 (file)
--- a/lib/SDL/Tool/Font.pm
+++ b/lib/SDL/Tool/Font.pm
@@ -46,7 +46,7 @@ sub DESTROY {
 sub print {
        my ($self,$surface,$x,$y,@text) = @_;
        die "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));