diff --git a/servers/slapd/back-perl/config.c b/servers/slapd/back-perl/config.c
index 4ba8b41b53a54a990f12754ffef78e499b64376f..9d665e8ce68e5998827eeab965450f511d8532eb 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] );