From 6f3507c42574a6e8a58e10e07c58c3ba434b4e7a Mon Sep 17 00:00:00 2001 From: eletuchy Date: Wed, 27 Feb 2008 23:50:21 +0000 Subject: [PATCH] [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 --- lib/erl/src/thrift_logger.erl | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) 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 -> -- 2.17.1