From: eletuchy <dev-null@apache.org>
Date: Wed, 27 Feb 2008 23:50:21 +0000 (+0000)
Subject: [thrift] erlang: fixing error logger for devious "not-quite-right" lists
X-Git-Tag: 0.2.0~941
X-Git-Url: https://source.supwisdom.com/gerrit/gitweb?a=commitdiff_plain;h=6f3507c42574a6e8a58e10e07c58c3ba434b4e7a;p=common%2Fthrift.git

[thrift] erlang: fixing error logger for devious "not-quite-right" lists

Summary: ... a la dictionary

Reviewed By: cpiro

Test Plan: bin_trim of a dict with a stored integer value

Revert Plan: sure


git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@665531 13f79535-47bb-0310-9956-ffa450edef68
---

diff --git a/lib/erl/src/thrift_logger.erl b/lib/erl/src/thrift_logger.erl
index bf1f54b7..e9963c02 100644
--- a/lib/erl/src/thrift_logger.erl
+++ b/lib/erl/src/thrift_logger.erl
@@ -15,7 +15,7 @@
 -export([init/1, handle_event/2, handle_call/2,
          handle_info/2, terminate/2, code_change/3]).
 
--export([install/0]).
+-export([install/0, bin_trim/1]).
 
 %%
 
@@ -112,8 +112,12 @@ handle_event2(Symbol, Pid, Type, Message, State) -> % Message must be a string
 
 %%
 
-bin_trim(L) when is_list(L) ->
-    lists:map(fun bin_trim/1, L);
+bin_trim([]) ->
+    [];
+bin_trim([H|T]) ->
+    [bin_trim(H) | bin_trim(T)];
+bin_trim({}) ->
+    {};
 bin_trim(T) when is_tuple(T) ->
     list_to_tuple(bin_trim(tuple_to_list(T)));
 bin_trim(Bin) when is_binary(Bin), size(Bin) > 100 ->