projects
/
sdlgit/SDL_perl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
PixelFormat docs
[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;
}