Polled from branch_1_1 fix for bug #348

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index 1fee037..1b6041d 100644 (file)
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -765,7 +765,7 @@ static int perl_instantiate(CONF_SECTION *conf, void **instance)
                PL_perl_destruct_level = 2;
        }
 
-       inst->perl = perl_clone(interp ,CLONEf_KEEP_PTR_TABLE);
+       inst->perl = interp;
        {
        dTHXa(inst->perl);
        }