X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=typemap;h=369d2a5d0cf30e3db4719ceaf745bb4039079c32;hb=HEAD;hp=ca2a9a0c4116a1b64011f719717fa392ea5e9aca;hpb=f1ad86be2247706265075553334715bf1d3b0d6b;p=sdlgit%2FSDL_perl.git

diff --git a/typemap b/typemap
index ca2a9a0..369d2a5 100644
--- a/typemap
+++ b/typemap
@@ -21,7 +21,7 @@ SDL_CDtrack *		T_PTR
 SDL_TimerCallback	T_PTR
 SDL_Rect *		O_OBJECT
 SDL_Color *		O_OBJECT
-SDL_Palette *		T_PTR
+SDL_Palette *		O_OBJECT
 SDL_PixelFormat *	O_OBJECT
 SDL_VideoInfo *		O_OBJECT
 SDL_Cursor *		T_PTR
@@ -70,6 +70,7 @@ Sound_Sample *		T_PTR
 Sound_AudioInfo *	T_PTR
 SDL_RWops*		T_PTR
 SDL_svg_context*	T_PTR
+int			T_IV
 
 OUTPUT
 
@@ -83,9 +84,10 @@ INPUT
 
 O_OBJECT
 	if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) )
-		$var = ($type)SvIV((SV*)SvRV( $arg ));
+		{ $var = ($type)SvIV((SV*)SvRV( $arg )); }
+	else if ($arg == 0)
+	{ XSRETURN(0); }
 	else{
-		warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" );
 		XSRETURN_UNDEF;
 	}