Fix refcounts for lock/magic_mutexfree. Make OP_LOCK auto-ref

its argument using ck_rfun as OP_DEFINED. Make pp_lock return
a ref to its argument for AV, HV, CV.

p4raw-id: //depot/perl@170

1 files changed, 1 insertions, 0 deletions

diff --git a/mg.c b/mg.c
index dedf381629..7f49f68aa0 100644
--- a/mg.c
+++ b/mg.c
@@ -1723,6 +1723,7 @@ MAGIC *mg;
 	croak("panic: magic_mutexfree");
     MUTEX_DESTROY(MgMUTEXP(mg));
     COND_DESTROY(MgCONDP(mg));
+    SvREFCNT_dec(sv);
     return 0;
 }
 #endif /* USE_THREADS */