From 2f562e13990cb6d50decde5ae21097b90f8ffe9d Mon Sep 17 00:00:00 2001
From: Bruno Silvestre <brunoos@inf.ufg.br>
Date: Sat, 28 Oct 2017 09:31:40 -0200
Subject: [PATCH] Put an error check back

---
 src/ssl.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/ssl.c b/src/ssl.c
index b270390..7f3ca46 100644
--- a/src/ssl.c
+++ b/src/ssl.c
@@ -261,7 +261,13 @@ static int meth_create(lua_State *L)
   SSL_CTX *ctx;
 
   lua_settop(L, 1);
+
   ssl = (p_ssl)lua_newuserdata(L, sizeof(t_ssl));
+  if (!ssl) {
+    lua_pushnil(L);
+    lua_pushstring(L, "error creating SSL object");
+    return 2;
+  }
 
   if ((ctx = lsec_testcontext(L, 1))) {
     mode = lsec_getmode(L, 1);
@@ -290,7 +296,7 @@ static int meth_create(lua_State *L)
     SSL_up_ref(ssl->ssl);
     mode = SSL_is_server(ssl->ssl) ? LSEC_MODE_SERVER : LSEC_MODE_CLIENT;
   } else {
-    return luaL_argerror(L, 1, "expected SSL_CTX* or SSL*");
+    return luaL_argerror(L, 1, "invalid context");
   }
   ssl->state = LSEC_STATE_NEW;
   SSL_set_fd(ssl->ssl, (int)SOCKET_INVALID);