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
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;
}