Fixed tests

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

diff --git a/t/mixerpm.t b/t/mixerpm.t
index 14a4e4d..960d74a 100644 (file)
--- a/t/mixerpm.t
+++ b/t/mixerpm.t
@@ -44,7 +44,7 @@ sub check_fail_mixer
        my $ret = 0;
        eval
        {
-               $ret = SDL::Init(SDL_INIT_AUDIO);
+               $ret = SDL::init(SDL_INIT_AUDIO);
        };
        return 1 if ($@ or $ret == -1);
        return 0;