DWORD                   T_HANDLE
REGSAM                  T_HANDLE
HKEY                    T_HANDLE
HANDLE                  T_HANDLE

#############################################################################
INPUT

T_HANDLE
	$var = INT2PTR($type, SvIV($arg))

#############################################################################
OUTPUT

T_HANDLE
	sv_setiv($arg, PTR2IV($var));