Added fix for SDL::Surface->format. Fixed test and typemap if SDL::NULL (0) is passed...

[sdlgit/SDL_perl.git] / typemap

diff --git a/typemap b/typemap
index ca2a9a0..b39c5d5 100644 (file)
--- a/typemap
+++ b/typemap
@@ -83,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;
        }