38 IV tmp = SvIV((SV*)SvRV($arg));
42 croak(\"$var is not a reference\")
46 IV tmp = SvIV((SV*)SvRV($arg));
50 croak(\"$var is not a reference\")
54 IV tmp = SvIV((SV*)SvRV($arg));
58 croak(\"$var is not a reference\")
62 sv_setiv(newSVrv($arg, cc_opclassname((OP*)$var)), (IV)$var);
65 make_sv_object(($arg), (SV*)($var));
69 sv_setiv(newSVrv($arg, "B::MAGIC"), (IV)$var);