Roll version 1.2.2

src/lager.app.src

@@ -3,7 +3,7 @@
 {application, lager,
  [
   {description, "Erlang logging framework"},
-  {vsn, "1.2.1"},
+  {vsn, "1.2.2"},
   {modules, []},
   {applications, [
                   kernel,

src/lager.erl

@@ -232,7 +232,6 @@ set_loglevel(Handler, Level) when is_atom(Level) ->
 %% @doc Set the loglevel for a particular backend that has multiple identifiers
 %% (eg. the file backend).
 set_loglevel(Handler, Ident, Level) when is_atom(Level) ->
-    io:format("handler: ~p~n", [{Handler, Ident}]),
     Reply = gen_event:call(lager_event, {Handler, Ident}, {set_loglevel, Level}, infinity),
     %% recalculate min log level
     MinLog = minimum_loglevel(get_loglevels()),

src/lager_trunc_io.erl

@@ -392,6 +392,9 @@ alist([H|T], Max, #print_options{force_strings=true} = Options) when is_integer(
 alist(_, _, #print_options{force_strings=true}) ->
     erlang:error(badarg);
 alist([H|_L], _Max, _Options) ->
+    throw({unprintable, H});
+alist(H, _Max, _Options) ->
+    %% improper list
     throw({unprintable, H}).
 
 %% is the first character in the atom alphabetic & lowercase?
@@ -622,6 +625,7 @@ list_printing_test() ->
     %%improper list
     ?assertEqual("[1,2,3|4]", lists:flatten(format("~P", [[1|[2|[3|4]]], 5], 50))),
     ?assertEqual("[1|1]", lists:flatten(format("~P", [[1|1], 5], 50))),
+    ?assertEqual("[9|9]", lists:flatten(format("~p", [[9|9]], 50))),
     ok.
 
 tuple_printing_test() ->