From b0a484d2bfe866f41e22a982ca9f2013ae9c3848 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 18 Jul 1998 02:08:01 +0000
Subject: fix another CvMUTEXP() leak

p4raw-id: //depot/perl@1526
---
 gv.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'gv.c')

diff --git a/gv.c b/gv.c
index 505f6339e5..4adce49408 100644
--- a/gv.c
+++ b/gv.c
@@ -124,7 +124,8 @@ gv_init(GV *gv, HV *stash, char *name, STRLEN len, int multi)
 	CvSTASH(GvCV(gv)) = curstash;
 #ifdef USE_THREADS
 	CvOWNER(GvCV(gv)) = 0;
-	New(666, CvMUTEXP(GvCV(gv)), 1, perl_mutex);
+	if (!CvMUTEXP(GvCV(gv)))
+	    New(666, CvMUTEXP(GvCV(gv)), 1, perl_mutex);
 	MUTEX_INIT(CvMUTEXP(GvCV(gv)));
 #endif /* USE_THREADS */
 	if (proto) {
-- 
cgit v1.2.1