From 18bad4ce6e101637ca8127dfda8d2bcc29f9bc65 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 31 Oct 2014 12:30:01 -0400 Subject: [PATCH] net/win32-ssl: adjust protocol handling like openssl --- racket/collects/net/win32-ssl.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/collects/net/win32-ssl.rkt b/racket/collects/net/win32-ssl.rkt index 638e3df112..4c0d84aa79 100644 --- a/racket/collects/net/win32-ssl.rkt +++ b/racket/collects/net/win32-ssl.rkt @@ -287,7 +287,8 @@ 0 #f ; mappers 0 #f ; algs (case protocol - [(sslv2-or-v3 sslv3) (bitwise-ior SP_PROT_SSL2 SP_PROT_SSL3)] + [(auto sslv2-or-v3) + (bitwise-ior SP_PROT_TLS1)] [(sslv2) SP_PROT_SSL2] [(sslv3) SP_PROT_SSL3] [(tls) SP_PROT_TLS1])