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 /pp.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 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4486,7 +4486,7 @@ unlock_condpair(void *svv) croak("panic: unlock_condpair unlocking mutex that we don't own"); MgOWNER(mg) = 0; COND_SIGNAL(MgOWNERCONDP(mg)); - DEBUG_L(PerlIO_printf(PerlIO_stderr(), "0x%lx: unlock 0x%lx\n", + DEBUG_S(PerlIO_printf(PerlIO_stderr(), "0x%lx: unlock 0x%lx\n", (unsigned long)thr, (unsigned long)svv);) MUTEX_UNLOCK(MgMUTEXP(mg)); } @@ -4511,7 +4511,7 @@ PP(pp_lock) while (MgOWNER(mg)) COND_WAIT(MgOWNERCONDP(mg), MgMUTEXP(mg)); MgOWNER(mg) = thr; - DEBUG_L(PerlIO_printf(PerlIO_stderr(), "0x%lx: pp_lock lock 0x%lx\n", + DEBUG_S(PerlIO_printf(PerlIO_stderr(), "0x%lx: pp_lock lock 0x%lx\n", (unsigned long)thr, (unsigned long)sv);) MUTEX_UNLOCK(MgMUTEXP(mg)); SvREFCNT_inc(sv); /* keep alive until magic_mutexfree */ |