amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

ftp-client: Restrict to TCP connections.

Browse source 
* guix/ftp-client.scm (ftp-open): Force SOCK_STREAM as the socket type
  to avoid calling 'connect' on a datagram socket.
This commit is contained in:
Ludovic Courtès 2015-11-12 23:08:43 +01:00
parent 8b341eb05d
commit 279ec1df20
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guix/ftp-client.scm
View file

@ -95,7 +95,7 @@ or a TCP port number), and return it."
(let loop ((addresses addresses)) (let loop ((addresses addresses))
(let* ((ai (car 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)))) (addrinfo:protocol ai))))
(catch 'system-error (catch 'system-error