diff options
| author | Paul Johnson <paul@pjcj.net> | 2001-07-12 06:14:11 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-12 13:05:46 +0000 |
| commit | ae7d165c0b89e5ee4f4efe1fcd0b5806caf58351 (patch) | |
| tree | 3ca6dd40179096c5469c469bc0ef784721e793a0 /dump.c | |
| parent | 983f8c39d1d673620d5153b40c61e46afb5d2df5 (diff) | |
| download | perl-ae7d165c0b89e5ee4f4efe1fcd0b5806caf58351.tar.gz | |
More accurate line numbers in messages
Message-ID: <20010712041411.A3467@pjcj.net>
(With prototyping and multiplicity tweaks.)
p4raw-id: //depot/perl@11305
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 13 |
1 files changed, 13 insertions, 0 deletions
@@ -392,7 +392,20 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) PerlIO_printf(file, "DONE\n"); if (o->op_targ) { if (o->op_type == OP_NULL) + { Perl_dump_indent(aTHX_ level, file, " (was %s)\n", PL_op_name[o->op_targ]); + if (o->op_targ == OP_NEXTSTATE) + { + if (CopLINE(cCOPo)) + Perl_dump_indent(aTHX_ level, file, "LINE = %d\n",CopLINE(cCOPo)); + if (CopSTASHPV(cCOPo)) + Perl_dump_indent(aTHX_ level, file, "PACKAGE = \"%s\"\n", + CopSTASHPV(cCOPo)); + if (cCOPo->cop_label) + Perl_dump_indent(aTHX_ level, file, "LABEL = \"%s\"\n", + cCOPo->cop_label); + } + } else Perl_dump_indent(aTHX_ level, file, "TARG = %ld\n", (long)o->op_targ); } |