Fixed tests

[sdlgit/SDL_perl.git] / t / core_palette.t

diff --git a/t/core_palette.t b/t/core_palette.t
index c23cd2f..a792614 100644 (file)
--- a/t/core_palette.t
+++ b/t/core_palette.t
@@ -10,7 +10,7 @@ use SDL;
 use SDL::Surface;
 use SDL::PixelFormat;
 
-SDL::Init(SDL_INIT_VIDEO);
+SDL::init(SDL_INIT_VIDEO);
 
 my $display = SDL::SetVideoMode(640,480,32, SDL_SWSURFACE );