diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-07-20 17:40:00 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-02 06:16:03 +0000 |
| commit | 8b73bbec3102cdf25a35c954eb1aab85acc07808 (patch) | |
| tree | 52e125d1fa92882b072415b5ac465a817f731bc7 /scope.c | |
| parent | bd869e3a5834bd5d26dd079fef07f5c567f6ca97 (diff) | |
| download | perl-8b73bbec3102cdf25a35c954eb1aab85acc07808.tar.gz | |
tweaked version of suggested patch
Message-Id: <199807210140.VAA17186@monk.mps.ohio-state.edu>
Subject: [PATCH 5.004_75] Enable -DS
p4raw-id: //depot/maint-5.005/perl@1701
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -382,7 +382,7 @@ save_threadsv(PADOFFSET i) #ifdef USE_THREADS dTHR; SV **svp = &THREADSV(i); /* XXX Change to save by offset */ - DEBUG_L(PerlIO_printf(PerlIO_stderr(), "save_threadsv %u: %p %p:%s\n", + DEBUG_S(PerlIO_printf(PerlIO_stderr(), "save_threadsv %u: %p %p:%s\n", i, svp, *svp, SvPEEK(*svp))); save_svref(svp); return svp; @@ -567,7 +567,7 @@ leave_scope(I32 base) ptr = SSPOPPTR; restore_sv: sv = *(SV**)ptr; - DEBUG_L(PerlIO_printf(PerlIO_stderr(), + DEBUG_S(PerlIO_printf(PerlIO_stderr(), "restore svref: %p %p:%s -> %p:%s\n", ptr, sv, SvPEEK(sv), value, SvPEEK(value))); if (SvTYPE(sv) >= SVt_PVMG && SvMAGIC(sv) && |