diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-06-27 23:26:24 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-06-28 15:39:57 +0000 |
| commit | b4ab917c3d812d8e61d365bfa48d9bf7675bc113 (patch) | |
| tree | 03f4a25b24bafea2e817ad09779a5859dc55790b /mg.c | |
| parent | 1d26cd9ec5ffb2d7823fb6941a001dc8e9a6d1c6 (diff) | |
| download | perl-b4ab917c3d812d8e61d365bfa48d9bf7675bc113.tar.gz | |
Two debugging patches.
The first allows to hold symbolic switches in $^D
and more generally fixes assignment to $^D. The
second one improves the information given by -Dl.
Subject: [PATCH] allow $^D = "flags"
Date: Fri, 27 Jun 2003 22:26:24 +0100
Message-ID: <20030627212624.GB12887@fdgroup.com>
Subject: [PATCH] make -Dl show more scope info
From: Dave Mitchell <davem@fdgroup.com>
Date: Fri, 27 Jun 2003 23:00:36 +0100
Message-ID: <20030627220036.GC12887@fdgroup.com>
p4raw-id: //depot/perl@19870
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -1975,8 +1975,13 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) break; case '\004': /* ^D */ - PL_debug = (SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)) | DEBUG_TOP_FLAG; +#ifdef DEBUGGING + s = SvPV_nolen(sv); + PL_debug = get_debug_opts(&s) | DEBUG_TOP_FLAG; DEBUG_x(dump_all()); +#else + PL_debug = (SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)) | DEBUG_TOP_FLAG; +#endif break; case '\005': /* ^E */ if (*(mg->mg_ptr+1) == '\0') { |