typemap revision 1.2 
1XS::APItest::PtrTable		T_PTROBJ
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)));
14