~ruther/guix-local: ftp-client: Restrict to TCP connections.

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.

patch browse .tar.gz

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