verify (%options, qw/ -data -mask -x -y /) if $SDL::DEBUG;
- die SDL::GetError() unless $$self;
+
my $self = \SDL::NewCursor($options{-data},$options{-mask},
$options{-x},$options{-y});
+ croak SDL::GetError() unless $$self;
bless $self, $class;
$self;
}