diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-09-10 16:39:41 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-09-10 16:39:41 +0000 |
| commit | bc1f4c8605eb0418d46665ac7ff7e98d88e051ca (patch) | |
| tree | 64fe2ad8e77b78995e82eeffd28b94b3a523efd1 /pp_hot.c | |
| parent | 5538b5808b062cabb0bf41698c02c8011317900e (diff) | |
| download | perl-bc1f4c8605eb0418d46665ac7ff7e98d88e051ca.tar.gz | |
Debugging output for lock handling.
p4raw-id: //depot/perl@64
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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); } |