me
/
guix
Archived
1
0
Fork 0
Code

lint: Do not leak file descriptors for TLS connections. 

Partially fixes <http://bugs.gnu.org/20145>.

* guix/scripts/lint.scm (probe-uri): Use 'close-connection' instead of
'close-port'.
master
Ludovic Courtès 2016-03-17 21:36:22 +01:00
parent 097a951e96
commit 14d6ca3e4d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
guix/scripts/lint.scm
View File

@ -20,7 +20,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (guix scripts lint) (define-module (guix scripts lint)
#:use-module (guix store) #:use-module ((guix store) #:hide (close-connection))
#:use-module (guix base32) #:use-module (guix base32)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix ftp-client) #:use-module (guix ftp-client)
@ -41,7 +41,8 @@
#:use-module (web uri) #:use-module (web uri)
#:use-module ((guix build download) #:use-module ((guix build download)
#:select (maybe-expand-mirrors #:select (maybe-expand-mirrors
open-connection-for-uri)) open-connection-for-uri
close-connection))
#:use-module (web request) #:use-module (web request)
#:use-module (web response) #:use-module (web response)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
@ -296,7 +297,7 @@ for connections to complete; when TIMEOUT is #f, wait as long as needed."
(force-output port) (force-output port)
(read-response port)) (read-response port))
(lambda () (lambda ()
(close port)))) (close-connection port))))
(case (response-code response) (case (response-code response)
((301 302 307) ((301 302 307)