return o;
}
+STATIC OP *sols_ref(pTHX_ OP *o, void *ud_) {
+ SV *cb = ud_;
+
+ return newSVOP(OP_ANONCODE, o->op_flags & ~OPf_KIDS, cb);
+}
+
STATIC OP *sols_pp(pTHX) {
dSP;
SV *cb;
c.proto = SvPV_const(cb, c.protolen);
}
c.check = sols_check;
+ c.ref = sols_ref;
c.ud = SvREFCNT_inc(cb);
c.pp = sols_pp;
sub_op_register(aTHX_ &c, 0);