Using new Rect with v2.2.2.11. Had to change getClipRect paramters.

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

diff --git a/lib/SDL/Sound.pm b/lib/SDL/Sound.pm
index f6afb27..ddbe144 100644 (file)
--- a/lib/SDL/Sound.pm
+++ b/lib/SDL/Sound.pm
@@ -30,13 +30,14 @@
 
 package SDL::Sound;
 use strict;
-
+use warnings;
+use Carp;
 sub new {
        my $proto = shift;      
        my $class = ref($proto) || $proto;
        my $filename = shift;
        my $self = \SDL::MixLoadWAV($filename);
-       die SDL::GetError() unless $$self;
+       croak SDL::GetError() unless $$self;
        bless $self,$class;
        return $self;
 }