me
/
guix
Archived
1
0
Fork 0
Code

nar: Fix file descriptor leak when writing a Nar. 

* guix/nar.scm (write-contents)[call-with-binary-input-file]: Always
  close PORT.
master
Ludovic Courtès 2013-09-22 22:13:51 +02:00
parent f566d765a1
commit 48e488eb2c
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
guix/nar.scm
View File

@ -76,10 +76,11 @@
;; avoid stat'ing like crazy. ;; avoid stat'ing like crazy.
(with-fluids ((%file-port-name-canonicalization #f)) (with-fluids ((%file-port-name-canonicalization #f))
(let ((port (open-file file "rb"))) (let ((port (open-file file "rb")))
(catch #t (cut proc port) (dynamic-wind
(lambda args (const #t)
(close-port port) (cut proc port)
(apply throw args)))))) (lambda ()
(close-port port))))))
(write-string "contents" p) (write-string "contents" p)
(write-long-long size p) (write-long-long size p)