diff options
| author | Simon Cozens <simon@netthink.co.uk> | 2001-08-25 18:45:09 +0100 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-08-27 13:18:45 +0000 |
| commit | 53e06cf030da5eb71c0b61c0690494f3c70e0555 (patch) | |
| tree | 304c53c9149e75adb4d834be77c98e238221b8b5 /dump.c | |
| parent | 13137afc7675869b45e226f8338b8d593c7bf6c8 (diff) | |
| download | perl-53e06cf030da5eb71c0b61c0690494f3c70e0555.tar.gz | |
Custom Ops
Message-ID: <20010825174509.A5752@netthink.co.uk>
I also added a fix to Opcode.pm to quite test cases.
p4raw-id: //depot/perl@11756
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -381,7 +381,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) PerlIO_printf(file, " "); PerlIO_printf(file, "%*sTYPE = %s ===> ", - (int)(PL_dumpindent*level-4), "", PL_op_name[o->op_type]); + (int)(PL_dumpindent*level-4), "", OP_NAME(o)); if (o->op_next) { if (o->op_seq) PerlIO_printf(file, "%d\n", o->op_next->op_seq); |