summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorIlya Zakharevich <ilya@math.berkeley.edu>1998-07-20 17:40:00 -0400
committerGurusamy Sarathy <gsar@cpan.org>1998-08-02 06:16:03 +0000
commit8b73bbec3102cdf25a35c954eb1aab85acc07808 (patch)
tree52e125d1fa92882b072415b5ac465a817f731bc7 /op.c
parentbd869e3a5834bd5d26dd079fef07f5c567f6ca97 (diff)
downloadperl-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 'op.c')
-rw-r--r--op.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index 16f528df84..f2851930a6 100644
--- a/op.c
+++ b/op.c
@@ -548,7 +548,7 @@ find_threadsv(char *name)
default:
sv_magic(sv, 0, 0, name, 1);
}
- DEBUG_L(PerlIO_printf(PerlIO_stderr(),
+ DEBUG_S(PerlIO_printf(PerlIO_stderr(),
"find_threadsv: new SV %p for $%s%c\n",
sv, (*name < 32) ? "^" : "",
(*name < 32) ? toCTRL(*name) : *name));