This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Resurrect PerlIO-related typemap tests.
authorCraig A. Berry <craigberry@mac.com>
Fri, 3 Feb 2012 00:50:44 +0000 (18:50 -0600)
committerCraig A. Berry <craigberry@mac.com>
Fri, 3 Feb 2012 00:50:44 +0000 (18:50 -0600)
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

index d69a700..3dc5b88 100644 (file)
@@ -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 {