In B.xs refactor cc_opclassname() to make_op_object().

[perl5.git] / ext / B / typemap

diff --git a/ext/B/typemap b/ext/B/typemap
index 7d14ba6..6daceb6 100644 (file)
--- a/ext/B/typemap
+++ b/ext/B/typemap
@@ -78,9 +78,6 @@ T_RHE_OBJ
            croak(\"$var is not a reference\")
 
 OUTPUT
-T_OP_OBJ
-       sv_setiv(newSVrv($arg, cc_opclassname(aTHX_ (OP*)$var)), PTR2IV($var));
-
 T_SV_OBJ
        make_sv_object(aTHX_ ($arg), (SV*)($var));