From: bjordanov <bjordanov>
Date: Mon, 20 Mar 2006 08:45:52 +0000 (+0000)
Subject: Polled from branch_1_1 fix for bug #348
X-Git-Tag: release_2_0_0_pre1~655
X-Git-Url: http://www.project-moonshot.org/gitweb/?p=freeradius.git;a=commitdiff_plain;h=ead2df5a7a288fde62552da2e05014c7acedd84e

Polled from branch_1_1 fix for bug #348
---

ead2df5a7a288fde62552da2e05014c7acedd84e
diff --cc src/modules/rlm_perl/rlm_perl.c
index 1fee037,ac6733f..1b6041d
--- a/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
 +	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 = perl_clone(interp ,CLONEf_KEEP_PTR_TABLE);
+ 	inst->perl = interp;
  	{
  	dTHXa(inst->perl);
  	}