Correct threads_mutex locking in main thread destruction.

Add per-interp thrsv to hold SV struct thread for main thread.
Move Thread.xs MUTEX_DESTROY from end of threadstart to remove_thread.
Add Thread/list.t test of Thread->list method.
Let Thread::Semaphore methods up and down take an extra argument.

p4raw-id: //depot/perl@140

1 files changed, 5 insertions, 0 deletions

diff --git a/perl.h b/perl.h
index 0287e6a15a..c8eee3d111 100644
--- a/perl.h
+++ b/perl.h
@@ -1957,6 +1957,11 @@ IEXT int	Ilaststatval IINIT(-1);
 IEXT I32	Ilaststype IINIT(OP_STAT);
 IEXT SV *	Imess_sv;
 
+#ifdef USE_THREADS
+/* threads stuff */
+IEXT SV *	Ithrsv;		/* holds struct thread for main thread */
+#endif /* USE_THREADS */
+
 #undef IEXT
 #undef IINIT