diff options
| author | Dan Gudmundsson <[email protected]> | 2017-06-30 11:58:01 +0200 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2017-09-15 17:07:48 +0200 |
| commit | 1557d8eca4fa0daaaad470eb68edc86ca7997aab (patch) | |
| tree | df740b3cbfb0f04fbb4d3e6892e47322855e6f66 /lib/asn1/src/asn1ct_check.erl | |
| parent | a443d41a1b7951137021e35ce480fbdd896f5cbc (diff) | |
| download | otp-1557d8eca4fa0daaaad470eb68edc86ca7997aab.tar.gz otp-1557d8eca4fa0daaaad470eb68edc86ca7997aab.tar.bz2 otp-1557d8eca4fa0daaaad470eb68edc86ca7997aab.zip | |
asn1: Do not use deprecated functions in string(3)
Diffstat (limited to 'lib/asn1/src/asn1ct_check.erl')
| -rw-r--r-- | lib/asn1/src/asn1ct_check.erl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/asn1/src/asn1ct_check.erl b/lib/asn1/src/asn1ct_check.erl index 83d12600b7..321980e5e4 100644 --- a/lib/asn1/src/asn1ct_check.erl +++ b/lib/asn1/src/asn1ct_check.erl @@ -1576,13 +1576,15 @@ printable_string_1(#'Externalvaluereference'{value=Type}) -> printable_string_1({Atom,Line}) when is_atom(Atom), is_integer(Line) -> q(Atom); printable_string_1({object,definedsyntax,L}) -> - q(string:join([printable_string_1(Item) || Item <- L], " ")); + Str = lists:join($\s, [printable_string_1(Item) || Item <- L]), + q(lists:flatten(Str)); printable_string_1([_|_]=Def) -> case lists:all(fun is_integer/1, Def) of true -> lists:flatten(io_lib:format("~p", [Def])); false -> - q(string:join([printable_string_1(Item) || Item <- Def], " ")) + Str = lists:join($\s, [printable_string_1(Item) || Item <- Def]), + q(lists:flatten(Str)) end; printable_string_1(Def) -> lists:flatten(io_lib:format("~p", [Def])). |