package SDL::Cdrom;
use strict;
+use warnings;
+use Carp;
BEGIN {
use Exporter();
my $self;
my $number = shift;
$self = \SDL::CDOpen($number);
- die SDL::GetError() if ( SDL::CD_ERROR() eq SDL::CDStatus($$self));
+ croak SDL::GetError() if ( SDL::CD_ERROR() eq SDL::CDStatus($$self));
bless $self,$class;
return $self;
}