diff options
| author | Stephen McCamant <smcc@mit.edu> | 1999-06-25 08:38:44 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-07 08:07:49 +0000 |
| commit | f628cf2943dd6ef0c5a765808e62063b338f1bb0 (patch) | |
| tree | 6af0288c91ab32f5ab3c8f6aabdca7d3b00e0e3e /dump.c | |
| parent | 0ead36586c93f6cf0fbb2b11b240cda6d7595190 (diff) | |
| download | perl-f628cf2943dd6ef0c5a765808e62063b338f1bb0.tar.gz | |
Eliminate CONDOPs
Message-ID: <14193.25034.113373.245377@alias-2.pr.mcs.net>
p4raw-id: //depot/perl@3637
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 12 |
1 files changed, 1 insertions, 11 deletions
@@ -544,17 +544,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) PerlIO_printf(file, "DONE\n"); break; case OP_COND_EXPR: - Perl_dump_indent(aTHX_ level, file, "TRUE ===> "); - if (cCONDOPo->op_true) - PerlIO_printf(file, "%d\n", cCONDOPo->op_true->op_seq); - else - PerlIO_printf(file, "DONE\n"); - Perl_dump_indent(aTHX_ level, file, "FALSE ===> "); - if (cCONDOPo->op_false) - PerlIO_printf(file, "%d\n", cCONDOPo->op_false->op_seq); - else - PerlIO_printf(file, "DONE\n"); - break; + case OP_RANGE: case OP_MAPWHILE: case OP_GREPWHILE: case OP_OR: |