diff options
| author | Chip Salzenberg <chip@pobox.com> | 2009-08-30 15:13:26 -0700 |
|---|---|---|
| committer | Chip Salzenberg <chip@pobox.com> | 2009-08-30 15:13:26 -0700 |
| commit | f0e3f042f14b829ffcf1b636f3090c8f69fa2a97 (patch) | |
| tree | e9e6094d8d18f7ceb75403905ccc19f154aaf31e /perl.c | |
| parent | d418880282b996e8cb066a570596b473fa7900da (diff) | |
| download | perl-f0e3f042f14b829ffcf1b636f3090c8f69fa2a97.tar.gz | |
finish implementing -DB vs. -Dx
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -2253,8 +2253,9 @@ S_run_body(pTHX_ I32 oldscope) exit(0); /* less likely to core dump than my_exit(0) */ } #endif - DEBUG_x(dump_all()); #ifdef DEBUGGING + if (DEBUG_x_TEST || DEBUG_B_TEST) + dump_all_perl(!DEBUG_B_TEST); if (!DEBUG_q_TEST) PERL_DEBUG(PerlIO_printf(Perl_debug_log, "\nEXECUTING...\n\n")); #endif |