steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.sockets.secure.openssl: Don't allocate empty password string. Fixes test failures introduced by >c-ptr change

db4
Slava Pestov 2009-02-06 10:17:20 -06:00
parent 33b513fb05
commit 79bb003e6d
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/io/sockets/secure/openssl/openssl.factor
View File

@ -46,11 +46,13 @@ TUPLE: openssl-context < secure-context aliens sessions ;
[ push ] [ drop ] 2bi ; [ push ] [ drop ] 2bi ;
: set-default-password ( ctx -- ) : set-default-password ( ctx -- )
dup config>> password>> [
[ handle>> password-callback SSL_CTX_set_default_passwd_cb ] [ handle>> password-callback SSL_CTX_set_default_passwd_cb ]
[ [
[ handle>> ] [ default-pasword ] bi [ handle>> ] [ default-pasword ] bi
SSL_CTX_set_default_passwd_cb_userdata SSL_CTX_set_default_passwd_cb_userdata
] bi ; ] bi
] [ drop ] if ;
: use-private-key-file ( ctx -- ) : use-private-key-file ( ctx -- )
dup config>> key-file>> [ dup config>> key-file>> [