diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-10-17 14:37:50 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-10-17 14:42:07 +0200 |
| commit | 2134228a7d8f14f0972a3526924d8cb4540b04c2 (patch) | |
| tree | 13554b63628ea35f5d4197c2934679ddb40e8719 /guix/gnu-maintenance.scm | |
| parent | 9aec35d265a8f37d8bfe47d5b2baa701c8f03009 (diff) | |
| download | gnu-guix-2134228a7d8f14f0972a3526924d8cb4540b04c2.tar gnu-guix-2134228a7d8f14f0972a3526924d8cb4540b04c2.tar.gz | |
gnu-maintenance: Fix file descriptor leak.
* guix/gnu-maintenance.scm (official-gnu-packages): Close the port
returned by FETCH.
Diffstat (limited to 'guix/gnu-maintenance.scm')
| -rw-r--r-- | guix/gnu-maintenance.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm index 920aae2173..e09df4b3ef 100644 --- a/guix/gnu-maintenance.scm +++ b/guix/gnu-maintenance.scm @@ -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." |