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

TYPEMAP
OP *	T_BOP

INPUT

T_BOP
	$var = decode_bop($arg);

OUTPUT

T_BOP
	sv_setsv($arg, encode_bop($var));