diff options
| author | Chip Salzenberg <chip@pobox.com> | 2009-08-30 15:21:10 -0700 |
|---|---|---|
| committer | Chip Salzenberg <chip@pobox.com> | 2009-08-30 15:21:10 -0700 |
| commit | a58fb6f9ef96a8b78ba4b58cfb068299b65fd6bd (patch) | |
| tree | 21120180b7911ddc57833cf87ba05e77884a509b /mg.c | |
| parent | c008dd209a151b84434a86cc5e4329af0e1bff9f (diff) | |
| download | perl-a58fb6f9ef96a8b78ba4b58cfb068299b65fd6bd.tar.gz | |
finish more implementing -DB vs. -Dx
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -2334,7 +2334,8 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) #ifdef DEBUGGING s = SvPV_nolen_const(sv); PL_debug = get_debug_opts(&s, 0) | DEBUG_TOP_FLAG; - DEBUG_B(dump_all()); + if (DEBUG_x_TEST || DEBUG_B_TEST) + dump_all_perl(!DEBUG_B_TEST); #else PL_debug = (SvIV(sv)) | DEBUG_TOP_FLAG; #endif |