sua_codec: Make sure we can re-encode options with {length, data} tuple
diff --git a/src/sua_codec.erl b/src/sua_codec.erl
index bb34ed6..0365939 100644
--- a/src/sua_codec.erl
+++ b/src/sua_codec.erl
@@ -76,6 +76,10 @@
OptBin = encode_sua_opt(Iei, Attr),
encode_xua_opts(Tail, <<Bin/binary, OptBin/binary>>).
+encode_sua_opt(Iei, {LenIn, Data}) when is_integer(Iei), is_binary(Data) ->
+ Length = LenIn + 4,
+ PadLen = get_num_pad_bytes(Length),
+ <<Iei:16/big, Length:16/big, Data/binary, 0:PadLen/integer-unit:8>>;
encode_sua_opt(Iei, Data) when is_integer(Iei), is_binary(Data) ->
Length = byte_size(Data) + 4,
PadLen = get_num_pad_bytes(Length),