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 74e11f4df2a5ceb5ae4550df0dda4fc0f3b05bbf..03714f8c31317415843231ee8ae762eb044f595a 100644 (file)
--- 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] );