~ruther/guix-local: gnu-maintenance: Fix file descriptor leak.

2134228a7d8f14f0972a3526924d8cb4540b04c2 — Ludovic Courtès 10 years ago 9aec35d

gnu-maintenance: Fix file descriptor leak.

* guix/gnu-maintenance.scm (official-gnu-packages): Close the port
  returned by FETCH.

patch browse .tar.gz

1 files changed, 4 insertions(+), 1 deletions(-)

M guix/gnu-maintenance.scm

M guix/gnu-maintenance.scm => guix/gnu-maintenance.scm +4 -1

@@ 161,7 161,10 @@ to fetch the list of GNU packages over HTTP."
                                 "doc-url"
                                 "download-url")
                           '("doc-url" "language"))))
-       (read-records (fetch %package-list-url #:text? #t))))
+       (let* ((port (fetch %package-list-url #:text? #t))
+              (lst  (read-records port)))
+         (close-port port)
+         lst)))
 
 (define (find-packages regexp)
   "Find GNU packages which satisfy REGEXP."