1 #include "EXTERN.h" 2 #include "perl.h" 3 #include "XSUB.h" 4 5 typedef IV MyType3; 6 7 MODULE = XSBroken PACKAGE = XSBroken 8 9 PROTOTYPES: ENABLE 10 11 12 TYPEMAP: <<'END' 13 MyType3 T_BAAR 14 15 OUTPUT 16 T_BAAR 17 sv_setiv($arg, (IV)$var); 18 END 19 20 MyType3 21 typemaptest3(foo) 22 MyType3 foo 23 CODE: 24 RETVAL = foo; 25 OUTPUT: 26 RETVAL 27