Perl_sv_peek(pTHX_ SV *sv)
{
dVAR;
- SV *t = sv_newmortal();
+ SV * const t = sv_newmortal();
int unref = 0;
sv_setpvn(t, "", 0);
if (!o)
return;
- op = newSVuv(PTR2UV(o));
- key = SvPV_const(op, len);
- if (hv_exists(Sequence, key, len))
- return;
+ if (!Sequence)
+ Sequence = newHV();
for (; o; o = o->op_next) {
op = newSVuv(PTR2UV(o));
if (CopSTASH_eq(PL_curcop, PL_debstash) && !DEBUG_J_TEST_)
return;
if (!PL_profiledata)
- Newz(000, PL_profiledata, MAXO, U32);
+ Newxz(PL_profiledata, MAXO, U32);
++PL_profiledata[o->op_type];
}