[perl #43432] [PATCH] Destroy condition before freeing memory

[via RT]

# New Ticket Created by  Ron Blaschke 
# Please include the string:  [perl #43432]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=43432 >


See subject.

Changed Files:
    src/thread.c

Ron

Index: src/thread.c
===================================================================
--- src/thread.c        (revision 19310)
+++ src/thread.c        (working copy)
@@ -1175,8 +1175,10 @@
     size_t          i;
     Shared_gc_info *info = get_pool(interp);
 
-    if (info)
+    if (info) {
+        COND_DESTROY(info->gc_cond);
         mem_sys_free(info);
+    }
 
     /*
      * if no threads were started - fine