This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
No list open on VMS as yet.
[perl5.git] / ext / XS-APItest / typemap
CommitLineData
36c2b1d0 1XS::APItest::PtrTable T_PTROBJ
52236464
TC
2
3const WCHAR * WPV
4
5INPUT
6
7WPV
8 $var = ($type)SvPV_nolen($arg);
9
10OUTPUT
11
12WPV
13 sv_setpvn($arg, (const char *)($var), sizeof(WCHAR) * (1+wcslen($var)));