mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-20 14:47:20 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu-maintenance: Fix file descriptor leak.

Browse source 
* guix/gnu-maintenance.scm (official-gnu-packages): Close the port
  returned by FETCH.
This commit is contained in:
Ludovic Courtès 2015-10-17 14:37:50 +02:00
parent 9aec35d265
commit 2134228a7d
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/gnu-maintenance.scm
View file

@ -161,7 +161,10 @@ (define official-description
"doc-url" "doc-url"
"download-url") "download-url")
'("doc-url" "language")))) '("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) (define (find-packages regexp)
"Find GNU packages which satisfy REGEXP." "Find GNU packages which satisfy REGEXP."