Change 16314 by sky@sky-lab on 2002/05/01 19:15:26
Cleanup memory a bit better in some cases.
Affected files ...
.... //depot/perl/ext/threads/threads.xs#42 edit
Differences ...
==== //depot/perl/ext/threads/threads.xs#42 (xtext) ====
Index: perl/ext/threads/threads.xs
--- perl/ext/threads/threads.xs.~1~ Wed May 1 13:30:05 2002
+++ perl/ext/threads/threads.xs Wed May 1 13:30:05 2002
@@ -515,6 +515,7 @@
/* 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;
End of Patch.
