--- a/ssl.t
+++ b/ssl.t
@@ -253,7 +253,9 @@ like(cert('/time', 8085), qr/^body [:\s\
 sub get {
 	my ($uri, $port) = @_;
 	my $s = get_ssl_socket($ctx, port($port)) or return;
-	http_get($uri, socket => $s);
+	my $r = http_get($uri, socket => $s);
+	$s->close();
+	return $r;
 }
 
 sub cert {

--- a/ssl_sni_sessions.t
+++ b/ssl_sni_sessions.t
@@ -201,11 +201,15 @@ sub get_ssl_socket {
 sub get {
 	my ($host, $port, $ctx) = @_;
 
-	return http(<<EOF, socket => get_ssl_socket($host, $port, $ctx));
+	my $s = get_ssl_socket($host, $port, $ctx) or return;
+	my $r = http(<<EOF, socket => $s);
 GET / HTTP/1.0
 Host: $host
 
 EOF
+
+	$s->close();
+	return $r;
 }
 
 ###############################################################################