picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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

IPv6 support
Diffstat:
Msrc/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); }