1 files changed, 11 insertions, 6 deletions

diff --git a/src/openssl.c b/src/openssl.c
index 8977234..9dbcda7 100644
--- a/src/openssl.c
+++ b/src/openssl.c
@@ -1181,18 +1181,23 @@ static int ex__gc(lua_State *L) {
         return 0;
 } /* ex__gc() */
 
-static void ex_newstate(lua_State *L) {
-        struct ex_state *state;
-        struct lua_State *thr;
+static _Bool ex_hasstate(lua_State *L) {
+        _Bool has;
 
         lua_pushlightuserdata(L, (void *)&ex__gc);
         lua_gettable(L, LUA_REGISTRYINDEX);
+        has = !lua_isnil(L, -1);
+        lua_pop(L, 1);
 
-        if (!lua_isnil(L, -1)) {
-                lua_pop(L, 1);
+        return has;
+} /* ex_hasstate() */
 
+static void ex_newstate(lua_State *L) {
+        struct ex_state *state;
+        struct lua_State *thr;
+
+        if (ex_hasstate(L))
                 return;
-        }
 
         state = prepudata(L, sizeof *state, NULL, &ex__gc);
         LIST_INIT(&state->data);