daemon/bindings: report errors in events

diff --git a/daemon/bindings.c b/daemon/bindings.c
index 9f97f0b2f73e2520491608c9c7538fd7f8188c53..4a0adab4866876323c554cdae1e3be9feff8e894 100644 (file)
--- a/daemon/bindings.c
+++ b/daemon/bindings.c
@@ -426,10 +426,13 @@ static void event_callback(uv_timer_t *timer)
        lua_rawgeti(L, LUA_REGISTRYINDEX, (intptr_t) timer->data);
        lua_rawgeti(L, -1, 1);
        lua_pushinteger(L, (intptr_t) timer->data);
-       engine_pcall(L, 1);
-
-       /* Free callback if not recurrent */
-       if (uv_timer_get_repeat(timer) == 0) {
+       int ret = engine_pcall(L, 1);
+       if (ret != 0) {
+               fprintf(stderr, "error: %s\n", lua_tostring(L, -1));
+               lua_pop(L, 1);
+       }
+       /* 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);
        }
 }