X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=typemap;h=b39c5d5a12e6f19bf47a57422478a332f4130958;hb=bbe5d2f55f14c54f36188c75c8db6cd858682e4c;hp=c0e446945fcf88b3ef3dad58c202d47a9b16485d;hpb=b41abbd6015ec5d9bba526df08193b1deb14c2ec;p=sdlgit%2FSDL_perl.git

diff --git a/typemap b/typemap
index c0e4469..b39c5d5 100644
--- a/typemap
+++ b/typemap
@@ -23,6 +23,7 @@ SDL_Rect *		O_OBJECT
 SDL_Color *		O_OBJECT
 SDL_Palette *		T_PTR
 SDL_PixelFormat *	O_OBJECT
+SDL_VideoInfo *		O_OBJECT
 SDL_Cursor *		T_PTR
 SDL_AudioSpec *		T_PTR
 SDL_AudioCVT *		T_PTR
@@ -43,7 +44,7 @@ UDPpacket **		T_PTR
 IPaddress*		T_PTR
 SDLNet_GenericSocket	T_PTR
 TTF_Font *		O_OBJECT
-SDL_Overlay *		T_PTR
+SDL_Overlay *		O_OBJECT	
 SMPEG_Info *		T_PTR
 SMPEG *			T_PTR
 SMPEGstatus		T_IV
@@ -82,9 +83,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;
 	}