diff options
| author | Hugo van der Sanden <hv@crypt.org> | 1999-06-23 18:27:42 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-23 17:24:42 +0000 |
| commit | 7399586d384137f7ae66bcc82a83b0df7dd429e5 (patch) | |
| tree | 0614d50805aadb4a38255926340fe1c5a3bdeff8 /dump.c | |
| parent | 59af01353dbbede40ae5b5d1b0330b847ffb82dc (diff) | |
| download | perl-7399586d384137f7ae66bcc82a83b0df7dd429e5.tar.gz | |
applied suggested patch for tracking line numbers correctly in
optimized blocks with a single statement; changed setcop to
setstate and added code for -Dx dumps
Message-Id: <199906231627.RAA24033@crypt.compulink.co.uk>
Subject: [PATCH 5.005_57] Line number error in optimised else()
p4raw-id: //depot/perl@3728
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -391,7 +391,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) else PerlIO_printf(file, "DONE\n"); if (o->op_targ) { - if (o->op_type == OP_NULL) + if (o->op_type == OP_NULL || o->op_type == OP_SETSTATE) Perl_dump_indent(aTHX_ level, file, " (was %s)\n", PL_op_name[o->op_targ]); else Perl_dump_indent(aTHX_ level, file, "TARG = %d\n", o->op_targ); @@ -524,6 +524,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) case OP_CONST: Perl_dump_indent(aTHX_ level, file, "SV = %s\n", SvPEEK(cSVOPo->op_sv)); break; + case OP_SETSTATE: case OP_NEXTSTATE: case OP_DBSTATE: if (cCOPo->cop_line) |