case VMG_OP_INFO_OBJECT: {
dMY_CXT;
return sv_bless(sv_2mortal(newRV_noinc(newSViv(PTR2IV(PL_op)))),
- gv_stashpv(vmg_opclassnames[vmg_opclass(PL_op)], 1));
+ MY_CXT.b__op_stashes[vmg_opclass(PL_op)]);
}
default:
break;
MY_CXT.wizards = hv;
for (c = 0; c < OPc_MAX; ++c) {
MY_CXT.b__op_stashes[c] = (had_b__op_stash & (((U32) 1) << c))
- ? gv_stashpv("B::OP", 1) : NULL;
+ ? gv_stashpv(vmg_opclassnames[c], 1) : NULL;
}
}