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 (executable)
--- 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;