From 23baf9a8b015536c88e567a26b8384ea43cbefe1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Carlos=20Mart=C3=ADn=20Nieto?= <cmn@dwim.me>
Date: Mon, 27 May 2013 02:50:45 +0200
Subject: [PATCH] Fix pkt-line length

---
 src/geef_pkt.erl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/geef_pkt.erl b/src/geef_pkt.erl
index a22472c..025df6a 100644
--- a/src/geef_pkt.erl
+++ b/src/geef_pkt.erl
@@ -4,5 +4,7 @@
 
 -spec line(iolist()) -> iolist().
 line(Text) ->
-    Prefix = io_lib:format("~4.16.0b", [iolist_size(Text) + 1]),
+    % prefix's own size + text size + LF
+    Len = 4 + iolist_size(Text) + 1,
+    Prefix = io_lib:format("~4.16.0b", [Len]),
     [Prefix, Text, "\n"].