Don't recreate an exdata state singleton object when one already exists, otherwise we wrongly invalidate any data already installed. Because ex_newstate is invoked from every submodule, this can easily happen if code loads one submodule, attaches some data to a new OpenSSL object, then loads some other submodule for the first time.

1 files changed, 9 insertions, 0 deletions

diff --git a/src/openssl.c b/src/openssl.c
index 7b2ce89..8977234 100644
--- a/src/openssl.c
+++ b/src/openssl.c
@@ -1185,6 +1185,15 @@ static void ex_newstate(lua_State *L) {
 	struct ex_state *state;
 	struct lua_State *thr;
 
+	lua_pushlightuserdata(L, (void *)&ex__gc);
+	lua_gettable(L, LUA_REGISTRYINDEX);
+
+	if (!lua_isnil(L, -1)) {
+		lua_pop(L, 1);
+
+		return;
+	}
+
 	state = prepudata(L, sizeof *state, NULL, &ex__gc);
 	LIST_INIT(&state->data);