Fix empty line check in perline

1 files changed, 1 insertions, 1 deletions

diff --git a/tmpl.c b/tmpl.c
index e0201b5..334089b 100644
--- a/tmpl.c
+++ b/tmpl.c
@@ -194,7 +194,7 @@ perline(const char *path, int nonempty, void (*process)(char *))
 	while (fgets(linebuf, 4096, f)) {
 		len = strlen(linebuf);
 		if (len && linebuf[len - 1] == '\n') {
-			linebuf[len - 1] = '\0';
+			linebuf[--len] = '\0';
 		} else if (len && !feof(f)) {
 			die("fgets '%s': line too long", path);
 		}