diff -u -r1.13.4.7 rlm_perl.c
--- src/modules/rlm_perl/rlm_perl.c	27 Apr 2006 17:35:44 -0000	1.13.4.7
+++ src/modules/rlm_perl/rlm_perl.c	25 Jan 2007 10:03:51 -0000
@@ -694,7 +694,7 @@
 	} else if (count > 0) {
 		tmp = POPp;
 		ret = strlen(tmp);
-		strncpy(out,tmp,ret);
+		strncpy(out,tmp,ret+1);
 
 		radlog(L_DBG,"rlm_perl: Len is %d , out is %s freespace is %d",
 		       ret, out,freespace);