kthakore can't spell :)

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

diff --git a/lib/SDL/Palette.pm b/lib/SDL/Palette.pm
index 59868d9..df99f3f 100644 (file)
--- a/lib/SDL/Palette.pm
+++ b/lib/SDL/Palette.pm
@@ -50,9 +50,9 @@ sub new {
                $image = shift;
                $self = \$image->palette(); 
        } else { 
-       die SDL::GetError() unless $$self;
                $self = \SDL::NewPalette(256); 
        }
+       croak SDL::GetError() unless $$self;
        bless $self, $class;
        return $self;
 }