diff options
| author | Siri Hansen <[email protected]> | 2017-06-26 15:10:22 +0200 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2017-07-07 12:01:53 +0200 |
| commit | 0633801a94a7ad5559ef59edc6ba25a5484d1e33 (patch) | |
| tree | c56ef65e94a248f93faa51db1752799142bd47c2 /lib/sasl/src/systools_relup.erl | |
| parent | 1d2de844e3dfeb3ced908b6d4b177ac9d15d6f4b (diff) | |
| download | otp-0633801a94a7ad5559ef59edc6ba25a5484d1e33.tar.gz otp-0633801a94a7ad5559ef59edc6ba25a5484d1e33.tar.bz2 otp-0633801a94a7ad5559ef59edc6ba25a5484d1e33.zip | |
[sasl] Improve handling of unicode strings and atoms
Diffstat (limited to 'lib/sasl/src/systools_relup.erl')
| -rw-r--r-- | lib/sasl/src/systools_relup.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/sasl/src/systools_relup.erl b/lib/sasl/src/systools_relup.erl index 706ae7d631..e836d57670 100644 --- a/lib/sasl/src/systools_relup.erl +++ b/lib/sasl/src/systools_relup.erl @@ -535,9 +535,9 @@ to_list(X) when is_list(X) -> X. write_relup_file(Relup, Opts) -> Filename = filename:join(filename:absname(get_opt(outdir,Opts)), "relup"), - case file:open(Filename, [write]) of + case file:open(Filename, [write,{encoding,utf8}]) of {ok, Fd} -> - io:format(Fd, "~p.~n", [Relup]), + io:format(Fd, "%% ~s~n~tp.~n", [epp:encoding_to_string(utf8),Relup]), case file:close(Fd) of ok -> ok; {error,Reason} -> |