From 08d5d1db9586f83ed261965aabe8db9e99502648 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Thu, 2 Feb 2012 18:50:44 -0600 Subject: Resurrect PerlIO-related typemap tests. Apparently we were just missing the fact that T_IN and T_OUT are pointers to PerlIO structs, not PerlIO structs themselves, which kinda makes sense as you wouldn't normally have an entire struct as a return value. --- ext/XS-Typemap/Typemap.xs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ext/XS-Typemap/Typemap.xs b/ext/XS-Typemap/Typemap.xs index d69a70037f..3dc5b88a9d 100644 --- a/ext/XS-Typemap/Typemap.xs +++ b/ext/XS-Typemap/Typemap.xs @@ -30,8 +30,8 @@ typedef int intTLONG; /* T_LONG */ typedef short shortOPQ; /* T_OPAQUE */ typedef int intOpq; /* T_OPAQUEPTR */ typedef unsigned intUnsigned; /* T_U_INT */ -typedef PerlIO inputfh; /* T_IN */ -typedef PerlIO outputfh; /* T_OUT */ +typedef PerlIO * inputfh; /* T_IN */ +typedef PerlIO * outputfh; /* T_OUT */ /* A structure to test T_OPAQUEPTR and T_PACKED */ struct t_opaqueptr { -- cgit v1.2.1