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

float			T_FLOAT

INPUT

T_FLOAT
	$var = (float)SvNV($arg)

OUTPUT

T_FLOAT
	sv_setnv($arg, (double)$var);