~ruther/guix-local

279ec1df202698d94c7992162621f6f7c00a7695 — Ludovic Courtès 10 years ago 8b341eb
ftp-client: Restrict to TCP connections.

* guix/ftp-client.scm (ftp-open): Force SOCK_STREAM as the socket type
  to avoid calling 'connect' on a datagram socket.
1 files changed, 1 insertions(+), 1 deletions(-)

M guix/ftp-client.scm
M guix/ftp-client.scm => guix/ftp-client.scm +1 -1
@@ 95,7 95,7 @@ or a TCP port number), and return it."

  (let loop ((addresses addresses))
    (let* ((ai (car addresses))
           (s  (socket (addrinfo:fam ai) (addrinfo:socktype ai)
           (s  (socket (addrinfo:fam ai) SOCK_STREAM ;TCP only
                       (addrinfo:protocol ai))))

      (catch 'system-error