-n

fix GENERAL_NAMES bug and fix build on Linux

1 files changed, 5 insertions, 2 deletions

diff --git a/openssl.c b/openssl.c
index fb4f719..afae12b 100644
--- a/openssl.c
+++ b/openssl.c
@@ -1304,7 +1304,7 @@ int luaopen__openssl_x509_name(lua_State *L) {
 static GENERAL_NAMES *gn_dup(lua_State *L, GENERAL_NAMES *gens) {
 	GENERAL_NAMES **ud = prepsimple(L, X509_GENS_CLASS);
 
-	if (!(*ud = sk_GENERAL_NAMES_dup(gens)))
+	if (!(*ud = sk_GENERAL_NAME_dup(gens)))
 		throwssl(L, "x509.altname.dup");
 
 	return *ud;
@@ -2931,16 +2931,19 @@ static int sx_new(lua_State *L) {
 		"SSLv2", "SSLv3", "SSLv23", "SSL", "TLSv1", "TLS", NULL
 	};
 	SSL_CTX **ud = prepsimple(L, SSL_CTX_CLASS);
-	SSL_METHOD *(*method)() = &TLSv1_client_method;
+	/* later versions of SSL declare a const qualifier on the return type */
+	__typeof__(&TLSv1_client_method) method = &TLSv1_client_method;
 	_Bool srv;
 
 	lua_settop(L, 2);
 	srv = lua_toboolean(L, 2);
 
 	switch (checkoption(L, 1, "TLS", opts)) {
+#ifndef OPENSSL_NO_SSL2
 	case 0: /* SSLv2 */
 		method = (srv)? &SSLv2_server_method : &SSLv2_client_method;
 		break;
+#endif
 	case 1: /* SSLv3 */
 		method = (srv)? &SSLv3_server_method : &SSLv3_client_method;
 		break;