mirror of
https://git.freebsd.org/ports.git
synced 2025-05-25 15:36:35 -04:00
683f166185
- Rename a few Erlang-related ports using the erlang- prefix; it will avoid
confusion with elixir- ports.
- Remove DOCS and EXAMPLES where not actually useful.
- Simplify RUN_DEPENDS where possible.
- Move textproc/exmpp to devel/erlang-exmpp.
- Add missing R18 compatibility fix for devel/erlang-oserl.
- Upgrade erlang-cuttlefish to 2.0.3.
The idea is that libraries ("deps") have the "erlang-" prefix, while larger
projects (rabbitmq, yaws, couchdb, etc) keep their usual names.
18 lines
650 B
Erlang
18 lines
650 B
Erlang
--- src/xmlrpc.erl.orig 2003-04-23 19:06:45 UTC
|
|
+++ src/xmlrpc.erl
|
|
@@ -164,7 +164,14 @@ handle_payload(Socket, KeepAlive, Timeou
|
|
|
|
get_payload(Socket, Timeout, ContentLength) ->
|
|
inet:setopts(Socket, [{packet, raw}]),
|
|
- gen_tcp:recv(Socket, ContentLength, Timeout).
|
|
+ get_payload(Socket, Timeout, ContentLength, []).
|
|
+
|
|
+get_payload(Socket, Timeout, 0, Payload) ->
|
|
+ {ok, lists:concat(lists:reverse(Payload))};
|
|
+
|
|
+get_payload(Socket, Timeout, ContentLength, Payload) ->
|
|
+ {ok, Bin} = gen_tcp:recv(Socket, 0, Timeout),
|
|
+ get_payload(Socket, Timeout, ContentLength - length(Bin), [Bin|Payload]).
|
|
|
|
%% Exported: start_link/{1,5,6}
|
|
|