From 2422218dd92c41efbade82d5c57ddfdafac2f1fd Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 31 Oct 2014 12:22:34 -0400 Subject: [PATCH] replace 'sslv2-or-v3 with 'auto in net libs --- racket/collects/net/http-client.rkt | 2 +- racket/collects/net/url-connect.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/collects/net/http-client.rkt b/racket/collects/net/http-client.rkt index d54064a8d5..7d661c8b82 100644 --- a/racket/collects/net/http-client.rkt +++ b/racket/collects/net/http-client.rkt @@ -55,7 +55,7 @@ (define (http-conn-open! hc host-bs #:ssl? [ssl? #f] #:port [port (if ssl? 443 80)]) (http-conn-close! hc) (define host (->string host-bs)) - (define ssl-version (if (boolean? ssl?) 'sslv2-or-v3 ssl?)) + (define ssl-version (if (boolean? ssl?) 'auto ssl?)) (define-values (from to) (cond [ssl? diff --git a/racket/collects/net/url-connect.rkt b/racket/collects/net/url-connect.rkt index 42fc1be1de..d644cac826 100644 --- a/racket/collects/net/url-connect.rkt +++ b/racket/collects/net/url-connect.rkt @@ -10,7 +10,7 @@ (define current-connect-scheme (make-parameter "http")) -(define current-https-protocol (make-parameter 'sslv2-or-v3)) +(define current-https-protocol (make-parameter 'auto)) ;; Define `tcp-connect' and `tcp-abandon-port' to fit with ;; `current-connect-scheme'