diff options
| author | Craig A. Berry <craigberry@mac.com> | 2012-02-02 18:50:44 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2012-02-02 18:50:44 -0600 |
| commit | 08d5d1db9586f83ed261965aabe8db9e99502648 (patch) | |
| tree | af23ea9271b88acbf4e5c0fab871ab14522b5441 /ext/XS-Typemap/Typemap.xs | |
| parent | 60a929b5b991173534dec41a346a8de6dfd4c63d (diff) | |
| download | perl-08d5d1db9586f83ed261965aabe8db9e99502648.tar.gz | |
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.
Diffstat (limited to 'ext/XS-Typemap/Typemap.xs')
| -rw-r--r-- | ext/XS-Typemap/Typemap.xs | 4 |
1 files 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 { |