From bc1f4c8605eb0418d46665ac7ff7e98d88e051ca Mon Sep 17 00:00:00 2001 From: Malcolm Beattie Date: Wed, 10 Sep 1997 16:39:41 +0000 Subject: Debugging output for lock handling. p4raw-id: //depot/perl@64 --- pp_hot.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'pp_hot.c') diff --git a/pp_hot.c b/pp_hot.c index fce7437de7..334a60d0da 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -1897,6 +1897,9 @@ PP(pp_entersub) while (MgOWNER(mg)) COND_WAIT(MgOWNERCONDP(mg), MgMUTEXP(mg)); MgOWNER(mg) = thr; + DEBUG_L(PerlIO_printf(PerlIO_stderr(), + "0x%lx: pp_entersub lock 0x%lx\n", + (unsigned long)thr, (unsigned long)sv);) MUTEX_UNLOCK(MgMUTEXP(mg)); save_destructor(unlock_condpair, sv); } -- cgit v1.2.1