X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSDL%2FMusic.pm;h=5f8720a19feaf7e54da2b729d2847b411888c1c9;hb=02ddb292770149d67620ea59cae5bf199cce9cea;hp=3184d425f95b15d0cc17ce1709c9ba1dee42e5eb;hpb=bfd90409c307d445ed6fec5cce6344b1e3d1be05;p=sdlgit%2FSDL_perl.git

diff --git a/lib/SDL/Music.pm b/lib/SDL/Music.pm
index 3184d42..5f8720a 100644
--- a/lib/SDL/Music.pm
+++ b/lib/SDL/Music.pm
@@ -31,6 +31,8 @@
 package SDL::Music;
 
 use strict;
+use warnings;
+use Carp;
 use SDL;
 
 sub new {
@@ -38,7 +40,7 @@ sub new {
 	my $class = ref($proto) || $proto;
 	my $filename = shift;
 	my $self = \SDL::MixLoadMusic($filename);
-	die SDL::GetError() unless $$self;
+	croak SDL::GetError() unless $$self;
 	bless $self,$class;
 	return $self;
 }