Lots of fixes for SV hacking in get video driver for SDL::Video

[sdlgit/SDL_perl.git] / test / testtimer.pl

diff --git a/test/testtimer.pl b/test/testtimer.pl
index 523d085..209c1bf 100644 (file)
--- 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);