From 9c41abde101395111efcda16aa2fd9625f4c6207 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Thu, 21 Feb 2013 13:17:25 +0100
Subject: [PATCH] list_to_integer/2 only works in OTP R14 and newer

---
 src/mod_muc/mod_muc_log.erl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/mod_muc/mod_muc_log.erl b/src/mod_muc/mod_muc_log.erl
index 27f1340dc..71dc8a0b2 100644
--- a/src/mod_muc/mod_muc_log.erl
+++ b/src/mod_muc/mod_muc_log.erl
@@ -321,9 +321,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,