diff --git a/src/perl.c b/src/perl.c
index 1ad72487cc329c487eef65cc65837edee74bfc31..f2cb7b6687a40ced37e5f05572cdf07c563e5b1f 100644 (file)
--- a/src/perl.c
+++ b/src/perl.c
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 */