constants testing

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

diff --git a/t/timerpm.t b/t/timerpm.t
index f7fb87c..51d81d5 100644 (file)
--- a/t/timerpm.t
+++ b/t/timerpm.t
@@ -46,9 +46,8 @@ sub check_fail_timer
        eval
        {
                $ret = SDL::Init(SDL_INIT_TIMER);
-               die "as";
        };
-       return 1 if (@_ or $ret == -1);
+       return 1 if ($@ or $ret == -1);
        return 0;
 }