SDL::GetError to SDL::geterror in lib/SDL/App.pm

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

diff --git a/lib/SDL/App.pm b/lib/SDL/App.pm
index c924579..542b79f 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());
        
@@ -112,8 +112,8 @@ sub new {
                $SDL::App::USING_OPENGL = 0;
        }
 
-       my $self = SDL::SetVideoMode('SDL::Surface',$w,$h,$d,$f)
-               or croak SDL::GetError();
+       my $self = SDL::SetVideoMode($w,$h,$d,$f)
+               or croak SDL::geterror();
        
        if ($ic and -e $ic) {
           my $icon = new SDL::Surface -name => $ic;
@@ -157,7 +157,7 @@ sub ticks {
 }
 
 sub error {
-       return SDL::GetError();
+       return SDL::geterror();
 }
 
 sub warp ($$$) {
@@ -195,7 +195,7 @@ sub sync ($) {
        if ($SDL::App::USING_OPENGL) {
                SDL::GLSwapBuffers()
        } else {
-               $self->flip();
+               SDL::Flip($self);
        }
 }