The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
B::MAGIC	T_MG_OBJ
B::REGEXP	T_RX_OBJ
B::COP		T_OP_OBJ

INPUT
T_RX_OBJ
        if (SvROK($arg)) {
	    int type = SvTYPE(SvRV($arg));
	    if (type == SVt_REGEXP || type == SVt_PVMG) {
                IV tmp = SvIV((SV*)SvRV($arg));
                $var = INT2PTR($type,tmp);
	    }
            else
                croak(\"ref to $var is of type %d, not a reference to REGEXP\", type);
        }
        else
              croak(\"$var is of type %d, not a reference to REGEXP\", SvTYPE($arg));
T_MG_OBJ
	if (SvROK($arg)) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = INT2PTR($type,tmp);
	}
	else
	    croak(\"$var is not a reference\")

T_OP_OBJ
	if (SvROK($arg)) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = INT2PTR($type,tmp);
	}
	else
	    croak(\"$var is not a reference\")