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 /perl.h | |
| 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 'perl.h')
| -rw-r--r-- | perl.h | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -2628,6 +2628,13 @@ Gid_t getegid (void); #endif /* DEBUGGING */ +#define DEBUG_SCOPE(where) \ + DEBUG_l(WITH_THR(Perl_deb(aTHX_ "%s scope %ld at %s:%d\n", \ + where, PL_scopestack_ix, __FILE__, __LINE__))); + + + + /* These constants should be used in preference to raw characters * when using magic. Note that some perl guts still assume * certain character properties of these constants, namely that |