Changeset 34308 in project


Ignore:
Timestamp:
08/20/17 23:07:15 (5 weeks ago)
Author:
sjamaan
Message:

Pass #t to ssl-connect to enable SNI support for latest openssl

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/http-client/trunk/http-client.scm

    r34002 r34308  
    253253
    254254(define ssl-connect
    255   (dynamic-import 'openssl 'ssl-connect (lambda (h p) (values #f #f))))
     255  (dynamic-import 'openssl 'ssl-connect (lambda _ (values #f #f))))
    256256
    257257(define (default-server-connector uri proxy)
     
    261261      ((https) (receive (in out)
    262262                   (ssl-connect (uri-host remote-end)
    263                                 (uri-port remote-end))
     263                                (uri-port remote-end)
     264                                'sslv2-or-v3 #t)
    264265                 (if (and in out)       ; Ugly, but necessary
    265266                     (values in out)
Note: See TracChangeset for help on using the changeset viewer.