From: Howard Chu <hyc@openldap.org>
Date: Fri, 4 Feb 2011 15:25:42 +0000 (+0000)
Subject: Cleanup config items on destroy
X-Git-Tag: MIGRATION_CVS2GIT~110
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=95f014d02f967ed1b540178e4acc7e37c0d57f19;p=openldap

Cleanup config items on destroy
---

diff --git a/servers/slapd/back-perl/close.c b/servers/slapd/back-perl/close.c
index 24ad366627..893834b760 100644
--- a/servers/slapd/back-perl/close.c
+++ b/servers/slapd/back-perl/close.c
@@ -46,6 +46,12 @@ perl_back_db_destroy(
 	ConfigReply *cr
 )
 {
+	PerlBackend *pb = be->be_private;
+
+	ch_free( pb->pb_module_name.bv_val );
+	ber_bvarray_free( pb->pb_module_path );
+	ber_bvarray_free( pb->pb_module_config );
+
 	free( be->be_private );
 	be->be_private = NULL;