From 3c7eb575d3bad7145421fd54f4258252a514f7a4 Mon Sep 17 00:00:00 2001
From: Andrew Thompson <andrew@hijacked.us>
Date: Tue, 5 Jul 2011 15:06:43 -0400
Subject: [PATCH] Don't start the crash logger if its not configured

---
 src/lager_sup.erl | 25 +++++++++++++++++--------
 1 file changed, 17 insertions(+), 8 deletions(-)

diff --git a/src/lager_sup.erl b/src/lager_sup.erl
index eaaf058..9efc3e8 100644
--- a/src/lager_sup.erl
+++ b/src/lager_sup.erl
@@ -28,12 +28,21 @@ start_link() ->
     supervisor:start_link({local, ?MODULE}, ?MODULE, []).
 
 init([]) ->
+    Children = [
+        {lager, {gen_event, start_link, [{local, lager_event}]},
+            permanent, 5000, worker, [dynamic]},
+        {lager_handler_watcher_sup, {lager_handler_watcher_sup, start_link, []},
+            permanent, 5000, supervisor, [lager_handler_watcher_sup]}],
+
+    %% check if the crash log is enabled
+    Crash = case application:get_env(lager, crash_log) of
+        {ok, File} ->
+            [{lager_crash_log, {lager_crash_log, start_link, [File]},
+                    permanent, 5000, worker, [lager_crash_log]}];
+        _ ->
+            []
+    end,
+
     {ok, {{one_for_one, 1000, 3600},
-            [
-                {lager, {gen_event, start_link, [{local, lager_event}]},
-                        permanent, 5000, worker, [dynamic]},
-                {lager_crash_log, {lager_crash_log, start_link, ["log/crash.log"]},
-                    permanent, 5000, worker, [lager_crash_log]},
-                {lager_handler_watcher_sup, {lager_handler_watcher_sup, start_link, []},
-                    permanent, 5000, supervisor, [lager_handler_watcher_sup]}
-                ]}}.
+            Children ++ Crash
+            }}.