fix for ssl-set-verify-hostname!

2012-11-17 16:46:10 -05:00 · 2012-11-17 16:46:10 -05:00 · ba1f4a6b22
commit ba1f4a6b22
parent c5f8aa41ee
1 changed files with 1 additions and 1 deletions
--- 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