commit d6719be4d52ca06e29bc5dd92c98fd03538ecec9
Author: Tomas Guisasola <tomasguisasola@gmail.com>
Date:   Sat Sep 21 11:28:50 2013 -0300

    Bug correction: the function didn't work with upvalues (thanks to Philipp Janda).

diff --git a/src/compat-5.2.c b/src/compat-5.2.c
index 1a60973..f54caa2 100644
--- a/src/compat-5.2.c
+++ b/src/compat-5.2.c
@@ -7,14 +7,14 @@
 ** Adapted from Lua 5.2.0
 */
 void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) {
-  luaL_checkstack(L, nup, "too many upvalues");
+  luaL_checkstack(L, nup+1, "too many upvalues");
   for (; l->name != NULL; l++) {  /* fill the table with given functions */
     int i;
+    lua_pushstring(L, l->name);
     for (i = 0; i < nup; i++)  /* copy upvalues to the top */
       lua_pushvalue(L, -nup);
-    lua_pushstring(L, l->name);
     lua_pushcclosure(L, l->func, nup);  /* closure with those upvalues */
-    lua_settable(L, -(nup + 3));
+    lua_settable(L, -3);
   }
   lua_pop(L, nup);  /* remove upvalues */
 }