perl 5.003_07: lib/ExtUtils/typemap

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

diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap
index 98493e7..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
@@ -261,7 +266,7 @@ T_ARRAY
 T_IN
        {
            GV *gv = newGVgen("$Package");
-           if ( do_open(gv, "<&", 2, $var) )
+           if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) )
                sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
            else
                $arg = &sv_undef;
@@ -269,7 +274,7 @@ T_IN
 T_INOUT
        {
            GV *gv = newGVgen("$Package");
-           if ( do_open(gv, "+<&", 3, $var) )
+           if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) )
                sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
            else
                $arg = &sv_undef;
@@ -277,7 +282,7 @@ T_INOUT
 T_OUT
        {
            GV *gv = newGVgen("$Package");
-           if ( do_open(gv, "+>&", 3, $var) )
+           if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) )
                sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
            else
                $arg = &sv_undef;