picolisp

commit abda94c49b5e3d47e3d21b4304f5e056f724a86f
parent 120101fc33159a124918b8cd4f9ded46bb236fc5
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 21 Oct 2011 12:40:04 +0200

IPv6 support
Diffstat:
M
src/ssl.c
 | 
9
++++-----

1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/src/ssl.c b/src/ssl.c
@@ -1,4 +1,4 @@
-/* 20oct11abu
+/* 21oct11abu
  * (c) Software Lab. Alexander Burger
  */
 
@@ -56,12 +56,11 @@ static int sslConnect(SSL *ssl, char *node, char *service) {
       for (p = lst; p; p = p->ai_next) {
          if ((sd = socket(p->ai_family, p->ai_socktype, 0)) >= 0) {
             if (connect(sd, p->ai_addr, p->ai_addrlen) == 0) {
-               freeaddrinfo(lst);
                SSL_set_fd(ssl, sd);
-               if (SSL_connect(ssl) >= 0)
+               if (SSL_connect(ssl) >= 0) {
+                  freeaddrinfo(lst);
                   return sd;
-               close(sd);
-               return -1;
+               }
             }
             close(sd);
          }