Fixed test for hardware or underlying fails

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

diff --git a/lib/SDL.pm b/lib/SDL.pm
index 0eb9ea0..18f61c4 100644 (file)
--- a/lib/SDL.pm
+++ b/lib/SDL.pm
@@ -58,7 +58,7 @@ $VERSION = '2.2.2.5';
 
 print "$VERSION" if (defined($ARGV[0]) && ($ARGV[0] eq '--SDLperl'));
 
-$SDL::DEBUG=1;
+$SDL::DEBUG=0;
 
 sub NULL {
        return 0;