X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fautovivification.git;a=blobdiff_plain;f=autovivification.xs;h=0ca1714b8440bbe13ed9b88993255aa2ad9f9cee;hp=528b13bb8a779936b5e27286be3e6ee0944bff8d;hb=bd9cc78d8eb99ee814a21fe46e981387dd3bca80;hpb=787fc43fb63cbbbefabd3cb51bc7c2f923e16a9c

diff --git a/autovivification.xs b/autovivification.xs
index 528b13b..0ca1714 100644
--- a/autovivification.xs
+++ b/autovivification.xs
@@ -1570,6 +1570,10 @@ static void a_teardown(pTHX_ void *root) {
 
   ptable_map_free(a_op_map);
   a_op_map = NULL;
+
+#ifdef USE_ITHREADS
+  MUTEX_DESTROY(&a_op_map_mutex);
+#endif
  }
 
  A_LOADED_UNLOCK;
@@ -1604,6 +1608,7 @@ static void a_setup(pTHX) {
   PERL_HASH(a_hash, __PACKAGE__, __PACKAGE_LEN__);
 
   a_op_map = ptable_new();
+
 #ifdef USE_ITHREADS
   MUTEX_INIT(&a_op_map_mutex);
 #endif