Trying workaround for directx forcing

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

diff --git a/t/timerpm.t b/t/timerpm.t
index f7fb87c..8f0a337 100644 (file)
--- a/t/timerpm.t
+++ b/t/timerpm.t
@@ -45,10 +45,9 @@ sub check_fail_timer
        my $ret = 0;
        eval
        {
-               $ret = SDL::Init(SDL_INIT_TIMER);
-               die "as";
+               $ret = SDL::init(SDL_INIT_TIMER);
        };
-       return 1 if (@_ or $ret == -1);
+       return 1 if ($@ or $ret == -1);
        return 0;
 }
 
@@ -73,5 +72,5 @@ my $timer = new SDL::Timer
 
 isa_ok($timer, 'SDL::Timer');
 
-SDL::Delay(100);
+SDL::delay(100);
 is ($fired, 1,'timer fired once');