From: Artur Bergman <sky@nanisky.com>
Date: Wed, 1 May 2002 19:15:26 +0000 (+0000)
Subject: Cleanup memory a bit better in some cases.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9684265faea45f5ba98d1a40ba3065625a698835;p=p5sagit%2Fp5-mst-13.2.git

Cleanup memory a bit better in some cases.

p4raw-id: //depot/perl@16314
---

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index 2c1f2a5..2ebbd83 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -515,6 +515,7 @@ Perl_ithread_join(pTHX_ SV *obj)
 	/* We have finished with it */
 	thread->state |= PERL_ITHR_JOINED;
 	MUTEX_UNLOCK(&thread->mutex);
+    	sv_unmagic(SvRV(obj),PERL_MAGIC_shared_scalar);
 	return retparam;
     }
     return (AV*)NULL;