futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

substitute: Avoid infinite loop when updating the substitute list.

Browse Source 
Reported
at <http://lists.gnu.org/archive/html/guix-devel/2015-07/msg00119.html>.

* guix/scripts/substitute.scm (http-multiple-get): When RESP has "Connection:
  close", consume HEAD anyway; always call PROC to read from BODY.

Co-authored-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Andy Patterson 2015-07-07 00:52:16 +02:00 committed by Ludovic Courtès
parent 399f9acee3
commit 075d99f195
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
guix/scripts/substitute.scm
View File

@ -462,17 +462,18 @@ to read the response body. Return the list of results."
(()
(reverse result))
((head tail ...)
(let* ((resp (read-response p))
(body (response-body-port resp)))
(let* ((resp (read-response p))
(body (response-body-port resp))
(result (cons (proc head resp body) result)))
;; The server can choose to stop responding at any time, in which
;; case we have to try again. Check whether that is the case.
;; Note that even upon "Connection: close", we can read from BODY.
(match (assq 'connection (response-headers resp))
(('connection 'close)
(close-port p)
(connect requests result)) ;try again
(connect tail result)) ;try again
(_
(loop tail ;keep going
(cons (proc head resp body) result)))))))))))
(loop tail result)))))))))) ;keep going
(define (read-to-eof port)
"Read from PORT until EOF is reached. The data are discarded."