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.master
parent
8b341eb05d
commit
279ec1df20
|
@ -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
|
||||
|
|
Reference in New Issue