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;
default:
continue;
}
- if (mg->mg_private < SIG_MIN || mg->mg_private > SIG_MAX)
- continue;
+ if (mg->mg_private < SIG_MIN || mg->mg_private > SIG_MAX) continue;
w = SV2MGWIZ(mg->mg_ptr);
switch (w->uvar) {
case 0:
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;
}
}