Fix a small error due to the unreleased lock

Fix a small error due to the unreleased lock by add pthread_mutex_unlock(&perl_threads->mutex) before program exit.

diff --git a/src/perl.c b/src/perl.c
index 0a4ae71d13ce0f0643a8e805d67854cb4835684a..4c7c6912e8087288e6b96ab8de536750a1746f07 100644 (file)
--- a/src/perl.c
+++ b/src/perl.c
@@ -2444,6 +2444,7 @@ static int init_pi(int argc, char **argv) {
 
   if (NULL == (perl_threads->head->interp = perl_alloc())) {
     log_err("init_pi: Not enough memory.");
+    pthread_mutex_unlock(&perl_threads->mutex);
     exit(3);
   }