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 /deb.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 'deb.c')
| -rw-r--r-- | deb.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -81,11 +81,14 @@ Perl_debstackptrs(pTHX) I32 Perl_debstack(pTHX) { -#ifdef DEBUGGING +#ifndef SKIP_DEBUGGING I32 top = PL_stack_sp - PL_stack_base; register I32 i = top - 30; I32 *markscan = PL_markstack + PL_curstackinfo->si_markoff; + if (CopSTASH_eq(PL_curcop, PL_debstash) && !DEBUG_J_TEST_) + return 0; + if (i < 0) i = 0; @@ -118,6 +121,6 @@ Perl_debstack(pTHX) } while (1); PerlIO_printf(Perl_debug_log, "\n"); -#endif /* DEBUGGING */ +#endif /* SKIP_DEBUGGING */ return 0; } |