--- 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 */

​