list_to_integer/2 only works in OTP R14 and newer

This commit is contained in:
Badlop 2013-06-25 10:37:10 +02:00
parent 45db79b9a7
commit 8220db189f
1 changed files with 6 additions and 0 deletions

View File

@ -322,9 +322,15 @@ htmlize_nick(Nick1, html) ->
htmlize_nick(Nick1, plaintext) ->
htmlize(?PLAINTEXT_IN++Nick1++?PLAINTEXT_OUT, plaintext).
%% list_to_integer/2 was introduced in OTP R14
-ifdef(SSL40).
set_filemode(Fn, {FileMode, FileGroup}) ->
ok = file:change_mode(Fn, list_to_integer(integer_to_list(FileMode), 8)),
ok = file:change_group(Fn, FileGroup).
-else.
set_filemode(Fn, {_FileMode, FileGroup}) ->
ok = file:change_group(Fn, FileGroup).
-endif.
add_message_to_log(Nick1, Message, RoomJID, Opts, State) ->
#logstate{out_dir = OutDir,