diff options
| author | Yves Orton <demerphq@gmail.com> | 2022-10-28 13:20:54 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2022-11-01 09:46:16 +0100 |
| commit | 9d85ccc14a0f8b8ae75e944f5d416fe22cddfe88 (patch) | |
| tree | 5466b25b8dccf07d58856bae6f7c32c70e64dfc4 /dump.c | |
| parent | f7aa676249e16d5f478ada9a1c9d6c8b1071d7ff (diff) | |
| download | perl-9d85ccc14a0f8b8ae75e944f5d416fe22cddfe88.tar.gz | |
dump.c - in op_dump show the hints and feature bits
I used to 'FEATS' instead of 'FEATURES' so the values line up
nicely.
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 5 |
1 files changed, 5 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); |