Added set_video_mode at test

[sdlgit/SDL_perl.git] / lib / SDL / Music.pm

diff --git a/lib/SDL/Music.pm b/lib/SDL/Music.pm
index 711c321..5f8720a 100644 (file)
--- a/lib/SDL/Music.pm
+++ b/lib/SDL/Music.pm
@@ -38,9 +38,9 @@ use SDL;
 sub new {
        my $proto = shift;      
        my $class = ref($proto) || $proto;
-       die SDL::GetError() unless $$self;
        my $filename = shift;
        my $self = \SDL::MixLoadMusic($filename);
+       croak SDL::GetError() unless $$self;
        bless $self,$class;
        return $self;
 }