[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.6-42-gf865ff
From: |
Ludovic Courtès |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.6-42-gf865ffa |
Date: |
Sat, 13 Oct 2012 19:13:16 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=f865ffaab159e52d48b015bea7280b2940753482
The branch, stable-2.0 has been updated
via f865ffaab159e52d48b015bea7280b2940753482 (commit)
from d74fcce9b98135042fd713180c587dff0239d6b3 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit f865ffaab159e52d48b015bea7280b2940753482
Author: Ludovic Courtès <address@hidden>
Date: Sat Oct 13 21:13:10 2012 +0200
web: Fix possible file descriptor leak in `open-socket-for-uri'.
* module/web/client.scm (open-socket-for-uri): Always close S in the
`system-error' handler.
-----------------------------------------------------------------------
Summary of changes:
module/web/client.scm | 5 ++---
1 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/module/web/client.scm b/module/web/client.scm
index 27458a4..cf7ea53 100644
--- a/module/web/client.scm
+++ b/module/web/client.scm
@@ -69,11 +69,10 @@
s)
(lambda args
;; Connection failed, so try one of the other addresses.
+ (close s)
(if (null? addresses)
(apply throw args)
- (begin
- (close s)
- (loop (cdr addresses)))))))))
+ (loop (cdr addresses))))))))
(define (decode-string bv encoding)
(if (string-ci=? encoding "utf-8")
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.6-42-gf865ffa,
Ludovic Courtès <=