From 8c7f26b1a20e8044c182e7c277b62f5b3fd10f4d Mon Sep 17 00:00:00 2001
From: Ryan Tandy <ryan@nardis.ca>
Date: Sun, 26 Apr 2020 10:46:22 -0700
Subject: [PATCH] ITS#7573 Fix back-perl dynamic config with threaded slapd
---
servers/slapd/back-perl/config.c | 1 +
1 file changed, 1 insertion(+)
diff --git a/servers/slapd/back-perl/config.c b/servers/slapd/back-perl/config.c
index 4ba8b41b53..9d665e8ce6 100644
--- a/servers/slapd/back-perl/config.c
+++ b/servers/slapd/back-perl/config.c
@@ -171,6 +171,7 @@ perl_cf(
break;
}
} else {
+ PERL_SET_CONTEXT( PERL_INTERPRETER );
switch( c->type ) {
case PERL_MODULE:
snprintf( eval_str, EVAL_BUF_SIZE, "use %s;", c->argv[1] );
--
GitLab