Changeset 36535 in project


Ignore:
Timestamp:
09/06/18 22:11:01 (12 days ago)
Author:
wasamasa
Message:

Add missing references to ssl-default-certificate-authorities (Kooda)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/openssl/trunk/openssl.scm

    r36534 r36535  
    910910(define (ssl-listen* #!key hostname (port 0) (backlog 4) (protocol 'tlsv12) (cipher-list "DEFAULT") certificate private-key (private-key-type 'rsa) private-key-asn1? certificate-authorities certificate-authority-directory (verify? #f))
    911911  (unless (or certificate-authorities certificate-authority-directory)
     912    (set! certificate-authorities (ssl-default-certificate-authorities))
    912913    (set! certificate-authority-directory (ssl-default-certificate-authority-directory)))
    913914  (let ((ear (ssl-listen port backlog hostname protocol)))
     
    923924(define (ssl-start* server? tcp-in tcp-out #!key (protocol 'tlsv12) (cipher-list "DEFAULT") certificate private-key (private-key-type 'rsa) private-key-asn1? certificate-authorities certificate-authority-directory (verify? (not server?)) sni-name)
    924925  (unless (or certificate-authorities certificate-authority-directory)
     926    (set! certificate-authorities (ssl-default-certificate-authorities))
    925927    (set! certificate-authority-directory (ssl-default-certificate-authority-directory)))
    926928  ;; ssl-wrap-client-context only serves a technical purpose here,
Note: See TracChangeset for help on using the changeset viewer.