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.

diff --git a/module/web/client.scm b/module/web/client.scm
index 27458a4..cf7ea53 100644 (file)
--- 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")