diff options
| author | Hans Bolinder <[email protected]> | 2015-03-18 09:39:56 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2015-03-18 09:39:56 +0100 |
| commit | 6f47d0e0c0b070ea7cf001553707d93d388d083e (patch) | |
| tree | 6a281731a96c22135268e64112de5c8ff1ffb7cb /lib/tools/src | |
| parent | 23579ef1581b3a928ca37d3f74f076dfdd748d3d (diff) | |
| parent | 1db419fc261faaab0830af9c0499499f03fad33b (diff) | |
| download | otp-6f47d0e0c0b070ea7cf001553707d93d388d083e.tar.gz otp-6f47d0e0c0b070ea7cf001553707d93d388d083e.tar.bz2 otp-6f47d0e0c0b070ea7cf001553707d93d388d083e.zip | |
Merge branch 'maint'
* maint:
tools: Fix a Unicode bug in the tags module
Diffstat (limited to 'lib/tools/src')
| -rw-r--r-- | lib/tools/src/tags.erl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/tools/src/tags.erl b/lib/tools/src/tags.erl index e3cc51cdb2..e25db2eb1b 100644 --- a/lib/tools/src/tags.erl +++ b/lib/tools/src/tags.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2013. All Rights Reserved. +%% Copyright Ericsson AB 1996-2015. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -297,15 +297,16 @@ word_char(_) -> false. %% Check the options `outfile' and `outdir'. open_out(Options) -> + Opts = [write, {encoding, unicode}], case lists:keysearch(outfile, 1, Options) of {value, {outfile, File}} -> - file:open(File, [write]); + file:open(File, Opts); _ -> case lists:keysearch(outdir, 1, Options) of {value, {outdir, Dir}} -> - file:open(filename:join(Dir, "TAGS"), [write]); + file:open(filename:join(Dir, "TAGS"), Opts); _ -> - file:open("TAGS", [write]) + file:open("TAGS", Opts) end end. |