fixed blit with new rect

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

diff --git a/lib/SDL/MPEG.pm b/lib/SDL/MPEG.pm
index b9c9987..50442bf 100644 (file)
--- a/lib/SDL/MPEG.pm
+++ b/lib/SDL/MPEG.pm
@@ -31,6 +31,8 @@
 package SDL::MPEG;
 
 use strict;
+use warnings;
+use Carp;
 use SDL;
 
 sub new {
@@ -42,7 +44,7 @@ sub new {
 
        my $self;
        if ( $options{-from} ) {
-               die "SDL::MPEG::new -from requires a SDL::Video object\n"
+               croak "SDL::MPEG::new -from requires a SDL::Video object\n"
                        unless $options{-from}->isa('SDL::Video');
 
                $self = \SDL::SMPEGGetInfo(${$options{-from}});