procyberian/lua
2
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2025-07-04 15:09:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

closing a "popen" file returns the process exit status

Browse source
This commit is contained in:
Roberto Ierusalimschy 2009-02-20 10:50:27 -03:00
parent 5438d77221
commit e39e758a73
2 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
liolib.c
View file

@ -1,5 +1,5 @@
/*
** $Id: liolib.c,v 2.78 2008/02/12 16:51:03 roberto Exp roberto $
** $Id: liolib.c,v 2.79 2008/02/12 17:05:36 roberto Exp roberto $
** Standard I/O (and system) library
** See Copyright Notice in lua.h
*/
@ -106,9 +106,14 @@ static int io_noclose (lua_State *L) {
*/
static int io_pclose (lua_State *L) {
FILE **p = tofilep(L);
int ok = lua_pclose(L, *p);
int stat = lua_pclose(L, *p);
*p = NULL;
return pushresult(L, ok, NULL);
if (stat == -1) /* error? */
return pushresult(L, 0, NULL);
else {
lua_pushinteger(L, stat);
return 1; /* return status */
}
}