Perl_dump_indent(aTHX_ level, file, "SV = %s\n", SvPEEK(cSVOPo_sv));
#endif
break;
- case OP_SETSTATE:
case OP_NEXTSTATE:
case OP_DBSTATE:
if (CopLINE(cCOPo))
(UV) COP_SEQ_RANGE_HIGH(sv));
} else if ((type >= SVt_PVNV && type != SVt_PVAV && type != SVt_PVHV
&& type != SVt_PVCV && type != SVt_PVFM && type != SVt_REGEXP
- && !isGV_with_GP(sv) && !SvVALID(sv))
+ && type != SVt_PVIO && !isGV_with_GP(sv) && !SvVALID(sv))
|| type == SVt_NV) {
STORE_NUMERIC_LOCAL_SET_STANDARD();
/* %Vg doesn't work? --jhi */
if (SvOOK(sv)) {
SvOOK_offset(sv, delta);
Perl_dump_indent(aTHX_ level, file," OFFSET = %"UVuf"\n",
- delta);
+ (UV) delta);
} else {
delta = 0;
}
level++;
if (PM_GETRE(pm)) {
REGEXP *const r = PM_GETRE(pm);
- /* FIXME ORANGE - REGEXP can be 8 bit, so this is sometimes buggy: */
- SV * const tmpsv = newSVpvn(RX_PRECOMP(r),RX_PRELEN(r));
- SvUTF8_on(tmpsv);
+ SV * const tmpsv = newSVsv((SV*)r);
+ sv_utf8_upgrade(tmpsv);
Perl_xmldump_indent(aTHX_ level, file, "pre=\"%s\"\n",
SvPVX(tmpsv));
SvREFCNT_dec(tmpsv);
}
do_op_xmldump(level+1, file, CvROOT(cSVOPo_sv));
break;
- case OP_SETSTATE:
case OP_NEXTSTATE:
case OP_DBSTATE:
if (CopLINE(cCOPo))