diff -puriN SDL_perl-1.20.3/test/loopwave.pl sdlperl-1.20.3/test/loopwave.pl
--- SDL_perl-1.20.3/test/loopwave.pl	2003-03-12 05:33:56 +0100
+++ sdlperl-1.20.3/test/loopwave.pl	2006-03-01 00:42:56 +0100
@@ -1,9 +1,10 @@
 #!/usr/bin/env perl
 
 use SDL;
+use SDL::Event;
 
 die "Could not initialize SDL: ", SDL::GetError()
-	if ( 0 > SDL::Init(SDL_INIT_AUDIO()));
+	if ( 0 > SDL::Init(SDL_INIT_AUDIO));
 
 $ARGV[0] ||= 'data/sample.wav';
 
@@ -56,7 +57,7 @@ SDL::PauseAudio(0);
 
 print "Using audio driver: ", SDL::AudioDriverName(), "\n";
 	
-while (! $done && ( SDL::GetAudioStatus() == SDL_AUDIO_PLAYING())) {
+while (! $done && ( SDL::GetAudioStatus() == SDL_AUDIO_PLAYING)) {
 	SDL::Delay(1000);
 }
 
diff -puriN SDL_perl-1.20.3/test/testjoystick.pl sdlperl-1.20.3/test/testjoystick.pl
--- SDL_perl-1.20.3/test/testjoystick.pl	2003-01-07 03:56:05 +0100
+++ sdlperl-1.20.3/test/testjoystick.pl	2006-03-01 00:42:56 +0100
@@ -154,7 +154,7 @@ sub WatchJoystick($){
   }
 				
 die "Could not initialize SDL: ", SDL::GetError()
-	if( 0 > SDL::Init(SDL::INIT_JOYSTICK()));
+	if( 0 > SDL::Init(SDL_INIT_JOYSTICK));
 
 printf "There are %d joysticks attched\n", SDL::NumJoysticks();
 for(my $i = 0; $i < SDL::NumJoysticks(); $i++){
diff -puriN SDL_perl-1.20.3/test/testtimer.pl sdlperl-1.20.3/test/testtimer.pl
--- SDL_perl-1.20.3/test/testtimer.pl	2003-03-12 07:00:29 +0100
+++ sdlperl-1.20.3/test/testtimer.pl	2006-03-01 00:42:56 +0100
@@ -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);