Fixed the pod path in archive

[sdlgit/SDL_perl.git] / typemap

diff --git a/typemap b/typemap
index 146a6ae..369d2a5 100644 (file)
--- a/typemap
+++ b/typemap
@@ -21,8 +21,9 @@ 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
 SDL_AudioSpec *                T_PTR
 SDL_AudioCVT *         T_PTR
@@ -69,6 +70,7 @@ Sound_Sample *                T_PTR
 Sound_AudioInfo *      T_PTR
 SDL_RWops*             T_PTR
 SDL_svg_context*       T_PTR
+int                    T_IV
 
 OUTPUT
 
@@ -82,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;
        }