X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=servers%2Fslapd%2Fback-perl%2Fconfig.c;h=c99c50e64388ff17fe899331f5d6ef91ffdd7387;hb=fb1bf1caa82aa75eb5924e8c338da11f47854408;hp=fd00965677ea53769394b9e2a0dcf7de4065022c;hpb=a8bb1769f5eb03f72ee101054c128d47d9fbb46a;p=openldap

diff --git a/servers/slapd/back-perl/config.c b/servers/slapd/back-perl/config.c
index fd00965677..c99c50e643 100644
--- a/servers/slapd/back-perl/config.c
+++ b/servers/slapd/back-perl/config.c
@@ -1,7 +1,7 @@
 /* $OpenLDAP$ */
 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
  *
- * Copyright 1999-2014 The OpenLDAP Foundation.
+ * Copyright 1999-2015 The OpenLDAP Foundation.
  * Portions Copyright 1999 John C. Quillan.
  * Portions Copyright 2002 myinternet Limited.
  * All rights reserved.
@@ -219,9 +219,11 @@ perl_cf(
 			XPUSHs( pb->pb_obj_ref );
 
 			/* Put all arguments on the perl stack */
-			for( args = 1; args < c->argc; args++ ) {
+			for( args = 1; args < c->argc; args++ )
 				XPUSHs(sv_2mortal(newSVpv(c->argv[args], 0)));
-			}
+
+			ber_str2bv( c->line + STRLENOF("perlModuleConfig "), 0, 0, &bv );
+			value_add_one( &pb->pb_module_config, &bv );
 
 			PUTBACK ;