diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-04-30 18:18:03 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-07-04 18:00:00 -0700 |
| commit | cc2ebcd790252079cb9b33d2eef133701a7eb63e (patch) | |
| tree | 9d746020dfb4cd47c5501c69c93388452ef25d4d /dump.c | |
| parent | aba33b8a16881a79d8ef8ab7e7786e35cb84e6ae (diff) | |
| download | perl-cc2ebcd790252079cb9b33d2eef133701a7eb63e.tar.gz | |
Record folded constants in the op tree
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -745,6 +745,7 @@ const struct flag_to_name op_const_names[] = { {OPpCONST_SHORTCIRCUIT, ",SHORTCIRCUIT"}, {OPpCONST_STRICT, ",STRICT"}, {OPpCONST_ENTERED, ",ENTERED"}, + {OPpCONST_FOLDED, ",FOLDED"}, {OPpCONST_BARE, ",BARE"} }; @@ -2923,6 +2924,8 @@ Perl_do_op_xmldump(pTHX_ I32 level, PerlIO *file, const OP *o) sv_catpv(tmpsv, ",STRICT"); if (o->op_private & OPpCONST_ENTERED) sv_catpv(tmpsv, ",ENTERED"); + if (o->op_private & OPpCONST_FOLDED) + sv_catpv(tmpsv, ",FOLDED"); } else if (o->op_type == OP_FLIP) { if (o->op_private & OPpFLIP_LINENUM) |