From 1b51412b634e080636dcc7aed04cea5d2365d153 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Marek=20Vavru=C5=A1a?= <marek.vavrusa@nic.cz>
Date: Sat, 13 Jun 2015 19:23:54 +0200
Subject: [PATCH] daemon/bindings: return top to previous after timer
---
daemon/bindings.c | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/daemon/bindings.c b/daemon/bindings.c
index cb20310db..9bf833890 100644
--- a/daemon/bindings.c
+++ b/daemon/bindings.c
@@ -449,6 +449,7 @@ static void event_callback(uv_timer_t *timer)
lua_State *L = worker->engine->L;
/* Retrieve callback and execute */
+ int top = lua_gettop(L);
lua_rawgeti(L, LUA_REGISTRYINDEX, (intptr_t) timer->data);
lua_rawgeti(L, -1, 1);
lua_pushinteger(L, (intptr_t) timer->data);
@@ -457,7 +458,7 @@ static void event_callback(uv_timer_t *timer)
fprintf(stderr, "error: %s\n", lua_tostring(L, -1));
}
/* Clear the stack, there may be event a/o enything returned */
- lua_settop(L, 0);
+ lua_settop(L, top);
/* Free callback if not recurrent or an error */
if (ret != 0 || uv_timer_get_repeat(timer) == 0) {
uv_close((uv_handle_t *)timer, (uv_close_cb) event_free);
--
GitLab