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

const WCHAR *			WPV

INPUT

WPV
        $var = ($type)SvPV_nolen($arg);

OUTPUT

WPV
        sv_setpvn($arg, (const char *)($var), sizeof(WCHAR) * (1+wcslen($var)));