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

INPUT
T_NV
	$var = ($type)SvNV($arg);
T_DIFFERENT
	$var = ($type)SvNV($arg);

OUTPUT
T_NV
	sv_setnv($arg, (NV)$var);