Fix pkt-line length

2013-05-27 02:50:45 +02:00
parent dacbbbc20e
commit 23baf9a8b0
1 changed files with 3 additions and 1 deletions
--- 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"].