diff --git a/src/perl.c b/src/perl.c
index 0a166a1ba184754782e6fd57de370e3eb57247ca..3b498f9b7ea348caf5048bc27932ccf3e0deb714 100644 (file)
--- a/src/perl.c
+++ b/src/perl.c
/* the ithread no longer exists */
if (NULL == t)
+ {
+ pthread_mutex_unlock (&perl_threads->mutex);
return;
+ }
c_ithread_destroy (ithread);