diff options
author | David Mitchell <davem@iabyn.com> | 2011-10-17 13:00:32 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2011-10-17 13:00:32 +0100 |
commit | e75ab6ad5d2255e4180c472f92ac3eaaec1fd200 (patch) | |
tree | 236e94f50cb1647cbf0e46e8b31ef0e3891eac41 /dump.c | |
parent | b6f05621f8846ec3e3b279fc32f6bbe9bce20cfb (diff) | |
download | perl-e75ab6ad5d2255e4180c472f92ac3eaaec1fd200.tar.gz |
in op_dump() / -Dx, replace "DONE" with "NULL"
When displaying op_next, it currently shows a null value as "DONE",
which while meaningful on a completely compiled tree, is confusing
on a partially-built tree, where multiple ops may have an op_next of null.
Diffstat (limited to 'dump.c')
-rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -849,7 +849,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o) o->op_type == OP_NULL ? "(%"UVuf")\n" : "%"UVuf"\n", sequence_num(o->op_next)); else - PerlIO_printf(file, "DONE\n"); + PerlIO_printf(file, "NULL\n"); if (o->op_targ) { if (optype == OP_NULL) { Perl_dump_indent(aTHX_ level, file, " (was %s)\n", PL_op_name[o->op_targ]); |