perl 5.003_07: lib/ExtUtils/xsubpp

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / typemap

diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap
index a9733d0..14d1222 100644 (file)
--- a/lib/ExtUtils/typemap
+++ b/lib/ExtUtils/typemap
@@ -45,6 +45,7 @@ FileHandle            T_PTROBJ
 InputStream            T_IN
 InOutStream            T_INOUT
 OutputStream           T_OUT
+bool                   T_BOOL
 
 #############################################################################
 INPUT
@@ -78,6 +79,8 @@ T_INT
        $var = (int)SvIV($arg)
 T_ENUM
        $var = ($type)SvIV($arg)
+T_BOOL
+       $var = (int)SvIV($arg)
 T_U_INT
        $var = (unsigned int)SvIV($arg)
 T_SHORT
@@ -199,6 +202,8 @@ T_SYSRET
        }
 T_ENUM
        sv_setiv($arg, (IV)$var);
+T_BOOL
+       $arg = $var ? &sv_yes : &sv_no;
 T_U_INT
        sv_setiv($arg, (IV)$var);
 T_SHORT