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 /scope.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 'scope.h')
| -rw-r--r-- | scope.h | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -96,13 +96,11 @@ Closing bracket on a callback. See C<ENTER> and L<perlcall>. #define ENTER \ STMT_START { \ push_scope(); \ - DEBUG_l(WITH_THR(Perl_deb(aTHX_ "ENTER scope %ld at %s:%d\n", \ - PL_scopestack_ix, __FILE__, __LINE__))); \ + DEBUG_SCOPE("ENTER") \ } STMT_END #define LEAVE \ STMT_START { \ - DEBUG_l(WITH_THR(Perl_deb(aTHX_ "LEAVE scope %ld at %s:%d\n", \ - PL_scopestack_ix, __FILE__, __LINE__))); \ + DEBUG_SCOPE("LEAVE") \ pop_scope(); \ } STMT_END #else |