package SDL::Palette;
use strict;
+use warnings;
+use Carp;
# NB: there is no palette destructor because most of the time the
# palette will be owned by a surface, so any palettes you create
} else {
$self = \SDL::NewPalette(256);
}
- die SDL::GetError() unless $$self;
+ croak SDL::GetError() unless $$self;
bless $self, $class;
return $self;
}