The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

TYPEMAP
HANDLE  T_PTR
DWORD   T_U_LONG
WCHAR * T_MY_WCHAR

INPUT
T_MY_WCHAR
    $var = (wchar_t *)SvPV_nolen($arg);