aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorHans Bolinder <[email protected]>2015-03-18 09:39:56 +0100
committerHans Bolinder <[email protected]>2015-03-18 09:39:56 +0100
commit6f47d0e0c0b070ea7cf001553707d93d388d083e (patch)
tree6a281731a96c22135268e64112de5c8ff1ffb7cb
parent23579ef1581b3a928ca37d3f74f076dfdd748d3d (diff)
parent1db419fc261faaab0830af9c0499499f03fad33b (diff)
downloadotp-6f47d0e0c0b070ea7cf001553707d93d388d083e.tar.gz
otp-6f47d0e0c0b070ea7cf001553707d93d388d083e.tar.bz2
otp-6f47d0e0c0b070ea7cf001553707d93d388d083e.zip
Merge branch 'maint'
* maint: tools: Fix a Unicode bug in the tags module
-rw-r--r--lib/tools/src/tags.erl9
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.