From: Vsevolod Stakhov <vsevolod@highsecure.ru>
Date: Sat, 30 Apr 2016 14:37:58 +0000 (+0100)
Subject: [Fix] Fix setting of the lua top
X-Git-Tag: 1.3.0~583
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=d66a1af14542760691c3e10a29b4564ac19a648b;p=thirdparty%2Frspamd.git

[Fix] Fix setting of the lua top
---

diff --git a/src/lua/lua_common.c b/src/lua/lua_common.c
index 803daa2f95..e85f82d1ad 100644
--- a/src/lua/lua_common.c
+++ b/src/lua/lua_common.c
@@ -209,7 +209,6 @@ rspamd_lua_init ()
 
 	L = luaL_newstate ();
 	luaL_openlibs (L);
-
 	luaopen_logger (L);
 	luaopen_mempool (L);
 	luaopen_config (L);
@@ -425,7 +424,7 @@ rspamd_lua_add_preload (lua_State *L, const gchar *name, lua_CFunction func)
 	lua_gettable (L, -2);
 	lua_pushcfunction (L, func);
 	lua_setfield (L, -2, name);
-	lua_pop (L, 1);
+	lua_pop (L, 2); /* preload key + global package */
 }
 
 
diff --git a/src/lua/lua_regexp.c b/src/lua/lua_regexp.c
index 9bd387a4b2..e751fac86c 100644
--- a/src/lua/lua_regexp.c
+++ b/src/lua/lua_regexp.c
@@ -746,4 +746,5 @@ luaopen_regexp (lua_State * L)
 	rspamd_lua_add_preload (L, "rspamd_regexp", lua_load_regexp);
 
 	regexp_static_pool = rspamd_mempool_new (rspamd_mempool_suggest_size (), NULL);
+	lua_settop (L, 0);
 }