--- rlm_perl.c.orig	2006-03-14 12:03:05.000000000 +0200
+++ rlm_perl.c	2006-03-14 12:03:17.000000000 +0200
@@ -778,7 +778,7 @@
 	}
 
 #ifdef USE_ITHREADS
-	inst->perl = perl_clone(interp ,CLONEf_KEEP_PTR_TABLE);
+	inst->perl = interp;
 	{
 	dTHXa(inst->perl);
 	}