Added programmer-level condition variables via "condpair" magic.

Added support for detached threads and tweaked a few things.

p4raw-id: //depot/thrperl@8

1 files changed, 15 insertions, 0 deletions

diff --git a/mg.c b/mg.c
index a395cc27f1..30ef4a665d 100644
--- a/mg.c
+++ b/mg.c
@@ -1340,6 +1340,21 @@ MAGIC* mg;
     return 0;
 }
 
+#ifdef USE_THREADS
+int
+magic_mutexfree(sv, mg)
+SV *sv;
+MAGIC *mg;
+{
+    dTHR;
+    if (MgOWNER(mg))
+	croak("panic: magic_mutexfree");
+    MUTEX_DESTROY(MgMUTEXP(mg));
+    COND_DESTROY(MgCONDP(mg));
+    return 0;
+}
+#endif /* USE_THREADS */
+
 I32
 whichsig(sig)
 char *sig;