diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2002-08-05 01:55:33 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-12 11:57:17 +0000 |
| commit | d672126634c5e568812ed35d4c8ea53a9a55ee4c (patch) | |
| tree | 945dc0356b4ee4a487d37b526ec251ffa716354b /dump.c | |
| parent | 75ea820e56eb2905cb7fed3312e2bd10c18778d5 (diff) | |
| download | perl-d672126634c5e568812ed35d4c8ea53a9a55ee4c.tar.gz | |
add verbose stack display option, -Dvs
Message-id: <20020805005533.B26111@fdgroup.com>
p4raw-id: //depot/perl@17718
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 11 |
1 files changed, 10 insertions, 1 deletions
@@ -1391,7 +1391,16 @@ Perl_runops_debug(pTHX) "WARNING: %"UVxf" changed from %"UVxf" to %"UVxf"\n", PTR2UV(PL_watchaddr), PTR2UV(PL_watchok), PTR2UV(*PL_watchaddr)); - if (DEBUG_s_TEST_) debstack(); + if (DEBUG_s_TEST_) { + if (DEBUG_v_TEST_) { + PerlIO_printf(Perl_debug_log, "\n"); + deb_stack_all(); + } + else + debstack(); + } + + if (DEBUG_t_TEST_) debop(PL_op); if (DEBUG_P_TEST_) debprof(PL_op); } |