diff --git a/src/perl.c b/src/perl.c
index d42afc2001f85311706d634dc96ec904f2c6959d..d247dc0eece612568bce01e2edaee4fdb5326193 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);