Fix potential file descriptor leak in luaL_loadfile*().

Reported by Assumeru. #1249

diff --git a/src/lj_load.c b/src/lj_load.c
index dab037b450b088dcb8b1c7c35b5c3a913f598af6..d92bd1b4bfb0982ec74c05800f94081a070c6aae 100644 (file)
--- a/src/lj_load.c
+++ b/src/lj_load.c
@@ -88,12 +88,13 @@ LUALIB_API int luaL_loadfilex(lua_State *L, const char *filename,
   int status;
   const char *chunkname;
   if (filename) {
+    chunkname = lua_pushfstring(L, "@%s", filename);
     ctx.fp = fopen(filename, "rb");
     if (ctx.fp == NULL) {
+      L->top--;
       lua_pushfstring(L, "cannot open %s: %s", filename, strerror(errno));
       return LUA_ERRFILE;
     }
-    chunkname = lua_pushfstring(L, "@%s", filename);
   } else {
     ctx.fp = stdin;
     chunkname = "=stdin";