X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftimerpm.t;h=51d81d5b0909b627db2d068aef442b88b76bea02;hb=fd90b841f2735a66ab950b83037589de64422fca;hp=f7fb87ce23ec4b2942894366f3a91c2febab17b2;hpb=c2f3910be03e91d91e856f463b64fd9d5fa708bc;p=sdlgit%2FSDL_perl.git diff --git a/t/timerpm.t b/t/timerpm.t index f7fb87c..51d81d5 100644 --- 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; }