--- rlm_perl.c.orig	2005-08-25 11:45:09.926649520 +0300
+++ rlm_perl.c	2005-08-25 11:50:11.300997250 +0300
@@ -426,7 +426,6 @@
 		if (perl_pool.current_clones < perl_pool.max_clones ) {
 
 			found = pool_grow();
-			perl_pool.current_clones++;
 
 			if (found == NULL) {
 				radlog(L_ERR,"Cannot grow pool returning");