Fix bug #348

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index d75c0a8..ac6733f 100644 (file)
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -778,7 +778,7 @@ static int perl_instantiate(CONF_SECTION *conf, void **instance)
        }
 
 #ifdef USE_ITHREADS
-       inst->perl = perl_clone(interp ,CLONEf_KEEP_PTR_TABLE);
+       inst->perl = interp;
        {
        dTHXa(inst->perl);
        }