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 4ba8b41b53a54a990f12754ffef78e499b64376f..9d665e8ce68e5998827eeab965450f511d8532eb 100644 (file)
--- 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] );