1XS::APItest::PtrTable		T_PTROBJ
2
3const WCHAR *			WPV
4U8 *		                T_PV
5
6INPUT
7
8WPV
9        $var = ($type)SvPV_nolen($arg);
10
11OUTPUT
12
13WPV
14        sv_setpvn($arg, (const char *)($var), sizeof(WCHAR) * (1+wcslen($var)));
15