X-Git-Url: https://git.verplant.org/?a=blobdiff_plain;f=src%2Fperl.c;h=3b498f9b7ea348caf5048bc27932ccf3e0deb714;hb=d5565943cd7ee338e5b750a027faff8115df4c72;hp=0a166a1ba184754782e6fd57de370e3eb57247ca;hpb=0a63e4493d92f7d739a1849bc65d4e971b047004;p=collectd.git

diff --git a/src/perl.c b/src/perl.c
index 0a166a1b..3b498f9b 100644
--- a/src/perl.c
+++ b/src/perl.c
@@ -1208,7 +1208,10 @@ static void c_ithread_destructor (void *arg)
 
 	/* the ithread no longer exists */
 	if (NULL == t)
+	{
+		pthread_mutex_unlock (&perl_threads->mutex);
 		return;
+	}
 
 	c_ithread_destroy (ithread);