From 8f174209e112d6937d871de7eb410105e076d3d4 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 74e11f4df2..03714f8c31 100644
--- a/servers/slapd/back-perl/config.c
+++ b/servers/slapd/back-perl/config.c
@@ -172,6 +172,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] );