diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2002-03-02 00:49:58 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-03-03 04:40:08 +0000 |
| commit | 1045810a2eefbb8aa6c05bba7cac36942959fec7 (patch) | |
| tree | 9b358824ffd7616299037cdd977dcd549b44d3f0 /dump.c | |
| parent | 9c493e7aec33685418d2252a524219fe91183a99 (diff) | |
| download | perl-1045810a2eefbb8aa6c05bba7cac36942959fec7.tar.gz | |
Debugging OPs
Message-Id: <20020302054958.A5511@math.ohio-state.edu>
p4raw-link: @14577 on //depot/perl: 0ad5258ff3f3328f321188cbb4fcd6a74b365431
p4raw-id: //depot/perl@14956
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -1402,6 +1402,10 @@ Perl_debop(pTHX_ OP *o) CV *cv; SV *sv; STRLEN n_a; + + if (CopSTASH_eq(PL_curcop, PL_debstash) && !DEBUG_J_TEST_) + return 0; + Perl_deb(aTHX_ "%s", OP_NAME(o)); switch (o->op_type) { case OP_CONST: @@ -1435,7 +1439,7 @@ Perl_debop(pTHX_ OP *o) PerlIO_printf(Perl_debug_log, "[%"UVuf"]", (UV)o->op_targ); break; default: - break; + return 0; } PerlIO_printf(Perl_debug_log, "\n"); return 0; @@ -1469,6 +1473,8 @@ Perl_watch(pTHX_ char **addr) STATIC void S_debprof(pTHX_ OP *o) { + if (CopSTASH_eq(PL_curcop, PL_debstash) && !DEBUG_J_TEST_) + return; if (!PL_profiledata) Newz(000, PL_profiledata, MAXO, U32); ++PL_profiledata[o->op_type]; |