From a1663fc425fba066ea8635069715288d5fa8678e Mon Sep 17 00:00:00 2001
From: jenny <84835889+jenny-cheung@users.noreply.github.com>
Date: Mon, 23 Aug 2021 17:22:43 +0800
Subject: [PATCH] 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.
---
 src/perl.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/perl.c b/src/perl.c
index 0a4ae71d1..4c7c6912e 100644
--- 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);
   }
 
-- 
2.47.2