Merge branch 'otp'
git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@665282 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/lib/erl/src/transport/tSocket.erl b/lib/erl/src/transport/tSocket.erl
index 491d86b..c2bf920 100644
--- a/lib/erl/src/transport/tSocket.erl
+++ b/lib/erl/src/transport/tSocket.erl
@@ -17,8 +17,8 @@
-export([attr/4, super/0, inspect/1]).
--export([new/0, new/1, new/2,
- effectful_setHandle/2, effectful_open/1,
+-export([new/0, new/1, new/2,
+ effectful_setHandle/2, effectful_open/1,
isOpen/1, write/2, read/2, effectful_close/1]).
%%%
@@ -91,6 +91,9 @@
Handle = oop:get(This, handle),
Val = gen_tcp:send(Handle, Str),
+ %% DEBUG
+ %% error_logger:info_msg("tSocket: wrote ~p~n", [Str]),
+
%% error_logger:info_msg("WRITE |~p| (~p)", [Str,Val]),
case Val of
@@ -108,6 +111,8 @@
Port = oop:get(This, port),
throw(tTransportException:new(?tTransportException_UNKNOWN, "TSocket: Could not read " ++ Sz ++ "bytes from " ++ Host ++ ":" ++ Port));
{ok, Data} ->
+ %% DEBUG
+ %% io:format("tSocket: read ~p~n", [Data]),
Data;
{error, Error} ->
exit(tTransportException:new(?tTransportException_NOT_OPEN, "in tSocket:read/2: gen_tcp:recv"))