X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=test%2Floopwave.pl;h=48af51db1237498e3c4770900c7db996ab4d2097;hb=105dd7ae8057a6e4b9913dbf5e48ac3d61970656;hp=458d93cd09dc980d3545c548e9784ee2beec1e72;hpb=084b921f85583af6a5b82572f6a561c94dd2fb5d;p=sdlgit%2FSDL_perl.git

diff --git a/test/loopwave.pl b/test/loopwave.pl
index 458d93c..48af51d 100644
--- a/test/loopwave.pl
+++ b/test/loopwave.pl
@@ -1,10 +1,11 @@
 #!/usr/bin/env perl
 
 use SDL;
+use SDL::Event;
 use Carp;
 
 croak "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';
 
@@ -57,7 +58,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);
 }