--- src/perl.c.orig	2007-09-13 00:08:17.000000000 +0200
+++ src/perl.c	2007-09-13 00:17:42.000000000 +0200
@@ -333,7 +333,7 @@
 		status = snprintf (buf, buf_len, "%s::%s", base_name, module);
 	if ((status < 0) || (status >= buf_len))
 		return (NULL);
-	buf[buf_len] = '\0';
+	buf[buf_len - 1] = '\0';
 	return (buf);
 } /* char *get_module_name */