Added trap for SDL::init because it keeps crashing on FreeBSD

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

diff --git a/test/loopwave.pl b/test/loopwave.pl
index b9e75d2..48af51d 100644 (file)
--- a/test/loopwave.pl
+++ b/test/loopwave.pl
@@ -1,13 +1,15 @@
 #!/usr/bin/env perl
 
 use SDL;
+use SDL::Event;
+use Carp;
 
-die "Could not initialize SDL: ", SDL::GetError()
-       if ( 0 > SDL::Init(SDL_INIT_AUDIO()));
+croak "Could not initialize SDL: ", SDL::GetError()
+       if ( 0 > SDL::Init(SDL_INIT_AUDIO));
 
 $ARGV[0] ||= 'data/sample.wav';
 
-die "usage: $0 [wavefile]\n"
+croak "usage: $0 [wavefile]\n"
        if ( in $ARGV[0], qw/ -h --help -? /);
 
 my ($wav_spec,$wav_buffer,$wav_len,$wav_pos) = (0,0,0,0);
@@ -47,16 +49,16 @@ $wave = SDL::LoadWAV($ARGV[0],$spec);
 
 ($wav_spec,$wav_buffer,$wav_len) = @$wave;
 
-die "Could not load wav file $ARGV[0], ", SDL::GetError(), "\n" unless ( $wav_len );
+croak "Could not load wav file $ARGV[0], ", SDL::GetError(), "\n" unless ( $wav_len );
 
-die "Could not open audio ", SDL::GetError()
+croak "Could not open audio ", SDL::GetError()
        if (0 > SDL::OpenAudio($wav_spec,$fillerup));
 
 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);
 }