X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=test%2Ftesttimer.pl;h=209c1bfd7f577dc9048db8dfdaee14d544e0e10b;hb=c894bef09bb0c2ca14154379167515cee29344f1;hp=523d0850fcbcc3c320c7c2463c490f23a2210112;hpb=8fde61e3e900d5000c94503679d735221acc1882;p=sdlgit%2FSDL_perl.git

diff --git a/test/testtimer.pl b/test/testtimer.pl
index 523d085..209c1bf 100644
--- a/test/testtimer.pl
+++ b/test/testtimer.pl
@@ -2,10 +2,11 @@
 
 use SDL;
 use SDL::Timer;
+use SDL::Event;
 
 die "usage: $0\n" if in($ARGV[0], qw/ -? -h --help/);
 
-SDL::Init(SDL_INIT_EVERYTHING());
+SDL::Init(SDL_INIT_TIMER);
 
 print STDERR "Waiting 4 seconds\n";
 SDL::Delay(4000);