Erlang gen_tcp {packet, line} with null byte line delimiter

erlang_gen_tcp_null_byte_delimited.erl

%Open two shells

%In first shell
{ok, ListenSock} = gen_tcp:listen(8091, [{active,true}, binary]).
{ok, AcceptSock} = gen_tcp:accept(ListenSock).
%it waits, so proceed to connect in second shell:

%In second shell
{ok, ClientSock} = gen_tcp:connect({127,0,0,1}, 8091, [binary, {active, true}]).

%In first shell
Opts = [{active, true}, {packet, line}, {line_delimiter, $\0}].
ok = inet:setopts(AcceptSock, Opts).

%In second shell
gen_tcp:send(ClientSock, "abcd\0efg\0").

%In first shell
flush().

%Result:
%Shell got {tcp,#Port<0.333>,<<97,98,99,100,0>>}
%Shell got {tcp,#Port<0.333>,<<101,102,103,0>>}