Polled from branch_1_1 fix for bug #348

diff --cc src/modules/rlm_perl/rlm_perl.c
index 1fee037,ac6733f..1b6041d
--- 1/src/modules/rlm_perl/rlm_perl.c
--- 2/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@@ -755,17 -778,7 +755,17 @@@ static int perl_instantiate(CONF_SECTIO
        }
  
  #ifdef USE_ITHREADS
-       inst->perl = perl_clone(interp ,CLONEf_KEEP_PTR_TABLE);
 +      if (!interp) {
 +              if ((interp = perl_alloc()) == NULL) {
 +                      radlog(L_DBG, "rlm_perl: No memory for allocating new perl !");
 +                      return -1;
 +              }
 +              
 +              perl_construct(interp);
 +              PL_perl_destruct_level = 2;
 +      }
 +
+       inst->perl = interp;
        {
        dTHXa(inst->perl);
        }