~ruther/guix-local

b7f4677999f9ad9f457088b69e1dc86e9664ec76 — Ludovic Courtès 10 years ago 3279b7e
ftp-client: Restrict to TCP/IP connections.

Fixes <http://bugs.gnu.org/21925>.
Regression introduced in 279ec1d.
Reported by Chris Marusich <cmmarusich@gmail.com>.

* guix/ftp-client.scm (ftp-open): Restrict sockets to
  SOCK_STREAM/IPPROTO_IP.
1 files changed, 3 insertions(+), 2 deletions(-)

M guix/ftp-client.scm
M guix/ftp-client.scm => guix/ftp-client.scm +3 -2
@@ 140,8 140,9 @@ TIMEOUT, an ETIMEDOUT error is raised."

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

      (catch 'system-error
        (lambda ()