Fixed tests

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

diff --git a/lib/SDL/App.pm b/lib/SDL/App.pm
index 86e4ea4..a3b0cb6 100644 (file)
--- a/lib/SDL/App.pm
+++ b/lib/SDL/App.pm
@@ -62,7 +62,7 @@ sub new {
         my $init = defined $options{-init} ? $options{-init} :
        SDL_INIT_EVERYTHING();
        
-        SDL::Init($init);
+        SDL::init($init);
 
        #SDL::Init(SDL::SDL_INIT_EVERYTHING());