More for ITS#8105

[openldap] / servers / slapd / back-perl / config.c

diff --git a/servers/slapd/back-perl/config.c b/servers/slapd/back-perl/config.c
index fd00965677ea53769394b9e2a0dcf7de4065022c..c99c50e64388ff17fe899331f5d6ef91ffdd7387 100644 (file)
--- 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 ;