Remove rlm_perl replace options

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index b0cf389944e167416f872aa81f0246d2bd413369..c6dcd0e7e7f224bec413502205eb62b3693f04d5 100644 (file)
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -54,13 +54,6 @@ extern char **environ;
 #  error perl must be compiled with USE_ITHREADS
 #endif
 
-typedef struct {
-       bool    request;        //!< Should the request list be replaced after module call
-       bool    reply;          //!< Should the reply list be replaced after module call
-       bool    control;        //!< Should the control list be replaced after module call
-       bool    session;        //!< Should the session list be replaced after module call
-} rlm_perl_replace_t;
-
 typedef struct {
        char const      *function_name; //!< Name of the function being called
        char            *name1;         //!< Section name1 where this is called
@@ -89,7 +82,6 @@ typedef struct {
        char const      *perl_flags;
        PerlInterpreter *perl;
        bool            perl_parsed;
-       rlm_perl_replace_t      replace;
        HV              *rad_perlconf_hv;       //!< holds "config" items (perl %RAD_PERLCONF hash).
 
 } rlm_perl_t;
@@ -117,14 +109,6 @@ static MGVTBL rlm_perl_vtbl = { 0, 0, 0, 0, 0, 0, 0, 0 };
 
 static void *perl_dlhandle;            //!< To allow us to load perl's symbols into the global symbol table.
 
-static const conf_parser_t replace_config[] = {
-       { FR_CONF_OFFSET("request", rlm_perl_replace_t, request) },
-       { FR_CONF_OFFSET("reply", rlm_perl_replace_t, reply) },
-       { FR_CONF_OFFSET("control", rlm_perl_replace_t, control) },
-       { FR_CONF_OFFSET("session", rlm_perl_replace_t, session) },
-       CONF_PARSER_TERMINATOR
-};
-
 /*
  *     A mapping of configuration file names to internal variables.
  */
@@ -135,8 +119,6 @@ static const conf_parser_t module_config[] = {
 
        { FR_CONF_OFFSET("perl_flags", rlm_perl_t, perl_flags) },
 
-       { FR_CONF_OFFSET_SUBSECTION("replace", 0, rlm_perl_t, replace, replace_config) },
-
        CONF_PARSER_TERMINATOR
 };