diff options
-rw-r--r-- | dump.c | 5 | ||||
-rw-r--r-- | ext/Devel-Peek/t/Peek.t | 1 |
2 files changed, 6 insertions, 0 deletions
@@ -1338,6 +1338,11 @@ S_do_op_dump_bar(pTHX_ I32 level, UV bar, PerlIO *file, const OP *o) generic_pv_escape( tmpsv, label, label_len, (label_flags & SVf_UTF8))); } + /* add hints and features if set */ + if (cCOPo->cop_hints) + S_opdump_indent(aTHX_ o, level, bar, file, "HINTS = %08x\n",cCOPo->cop_hints); + if (cCOPo->cop_features) + S_opdump_indent(aTHX_ o, level, bar, file, "FEATS = %08x\n",cCOPo->cop_features); S_opdump_indent(aTHX_ o, level, bar, file, "SEQ = %u\n", (unsigned int)cCOPo->cop_seq); diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 6ad108754f..bc86bc5612 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -1516,6 +1516,7 @@ dumpindent is 4 at -e line 1. | FLAGS = (VOID,SLABBED,MORESIB) | LINE = 1 | PACKAGE = "t" + | HINTS = 00000100 | | 5 +--entersub UNOP(0xNNN) ===> 1 [leave 0xNNN] TARG = 1 |