Debugging output for lock handling.

p4raw-id: //depot/perl@64

1 files changed, 2 insertions, 0 deletions

diff --git a/mg.c b/mg.c
index 305f00f7e5..56fb49534f 100644
--- a/mg.c
+++ b/mg.c
@@ -1626,6 +1626,8 @@ SV *sv;
 MAGIC *mg;
 {
     dTHR;
+    DEBUG_L(PerlIO_printf(PerlIO_stderr(), "0x%lx: magic_mutexfree 0x%lx\n",
+			  (unsigned long)thr, (unsigned long)sv);)
     if (MgOWNER(mg))
 	croak("panic: magic_mutexfree");
     MUTEX_DESTROY(MgMUTEXP(mg));