Skip to content

Commit

Permalink
Use default :method when calling create-ssl-ctx in tcp-ssl-connect-ne…
Browse files Browse the repository at this point in the history
…w. :tlsv1-client is too inflexible in negotiations.
  • Loading branch information
gtod committed Aug 12, 2016
1 parent cc5c94a commit 92878f4
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/ssl/tcp.lisp
Expand Up @@ -322,7 +322,7 @@
(stream-socket socket/stream)
socket/stream))
(ctx (or ssl-ctx
(let ((ctx (create-ssl-ctx :method :tlsv1-client :options ssl-options)))
(let ((ctx (create-ssl-ctx :options ssl-options)))
(ssl-ctx-set-default-verify-paths ctx)
;; TODO better verify support
(ssl-ctx-set-verify ctx +ssl-verify-none+ (cffi:null-pointer))
Expand Down

0 comments on commit 92878f4

Please sign in to comment.