mirrors
/
lua
mirror of https://github.com/lua/lua
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

'cpcall' must ensure correct environment for called function

This commit is contained in:
Roberto Ierusalimschy 2009-09-30 17:49:47 -03:00
parent d119cf3035
commit ba21aa8b2b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lstate.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lstate.c,v 2.59 2009/09/21 12:09:52 roberto Exp roberto $
** $Id: lstate.c,v 2.60 2009/09/28 13:50:19 roberto Exp roberto $
** Global State
** See Copyright Notice in lua.h
*/
@ -98,7 +98,10 @@ static void freestack (lua_State *L) {
*/
static int cpcall (lua_State *L) {
lua_CFunction f = *(lua_CFunction *)lua_touserdata(L, 1);
lua_remove(L, 1);
lua_remove(L, 1); /* remove f from stack */
/* restore original environment for 'cpcall' */
lua_pushvalue(L, LUA_GLOBALSINDEX);
lua_replace(L, LUA_ENVIRONINDEX);
return f(L);
}