From ba1f4a6b224966cc54e791d8624e89e93e77bf11 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Sat, 17 Nov 2012 16:46:10 -0500 Subject: [PATCH] fix for ssl-set-verify-hostname! --- collects/openssl/mzssl.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/openssl/mzssl.rkt b/collects/openssl/mzssl.rkt index 8b58f278c4..c1a97582e4 100644 --- a/collects/openssl/mzssl.rkt +++ b/collects/openssl/mzssl.rkt @@ -1087,7 +1087,7 @@ (unless hostname (error/ssl who "~a failed (hostname not provided for verification)" (if connect? "connect" "accept"))) - (unless (hostname-in-cert? (SSL_get_peer_certificate ssl)) + (unless (hostname-in-cert? hostname (SSL_get_peer_certificate ssl)) (error/ssl who "~a failed (certificate not valid for hostname)" (if connect? "connect" "accept")))) ;; Connection complete; make ports