geterror to get_error

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

diff --git a/lib/SDL/App.pm b/lib/SDL/App.pm
index 8c8665f..fbc3084 100644 (file)
--- a/lib/SDL/App.pm
+++ b/lib/SDL/App.pm
@@ -113,7 +113,7 @@ sub new {
        }
 
        my $self = SDL::SetVideoMode($w,$h,$d,$f)
-               or croak SDL::geterror();
+               or croak SDL::get_error();
        
        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::get_error();
 }
 
 sub warp ($$$) {