From 55f40fdbcdd98d1d1c0110d508079c068bf7f81d Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 10 Jan 2018 23:06:08 +0100 Subject: ssh: Pass an empty "exceptfds" set to 'select'. Previously the redirect code could end up exiting prematurely because of an uninteresting "exceptional condition" on the socket (info "(libc) Waiting for I/O"). * guix/ssh.scm (remote-daemon-channel): Pass the empty list as the third argument to 'select'. It was a mistake to pass a non-empty list there in the first place. --- guix/ssh.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'guix/ssh.scm') diff --git a/guix/ssh.scm b/guix/ssh.scm index 96e4af9179..cb560c0e9c 100644 --- a/guix/ssh.scm +++ b/guix/ssh.scm @@ -124,8 +124,8 @@ Throw an error on failure." (connect sock AF_UNIX ,socket-name) (let loop () - (match (select (list stdin sock) '() (list stdin stdout sock)) - ((reads writes ()) + (match (select (list stdin sock) '() '()) + ((reads () ()) (when (memq stdin reads) (match (read! stdin buffer) ((? zero?) ;EOF -- cgit v1.2.3