Incorrect content length due to eol appending

[bbkr]

HTTP::Message in Str method is silently appending EOL:

http-useragent/lib/HTTP/Message.pm6

Line 231 in cfdfc48

$s ~= $.content ~ $eol if $.content and !$debug;

This causes Content-Length calculated by user to be incorrect:

$response = HTTP::Response.new;
$response.set-code( 200 );

my $content = 'foo';   # 3 bytes
$response.add-content( $content );
$response.field( Content-Length => $content.encode.bytes );

$socket.print( $response.Str ); # will send 2 bytes more than declared

Why is this EOL appended? User content should not be tampered with. Is this behavior described somewhere in RFC?

[zjmarlow]

Can this please be fixed? Firefox Web Driver isn't handling the extra EOL.