From: Ryan Tandy <ryan@nardis.ca>
Date: Sun, 26 Apr 2020 17:46:22 +0000 (-0700)
Subject: ITS#7573 Fix back-perl dynamic config with threaded slapd
X-Git-Tag: OPENLDAP_REL_ENG_2_4_51~50
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8c7f26b1a20e8044c182e7c277b62f5b3fd10f4d;p=thirdparty%2Fopenldap.git

ITS#7573 Fix back-perl dynamic config with threaded slapd
---

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] );