nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

do not pretend that file is closed when close fails

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2002-10-21 17:41:24 -03:00
parent ec748fcb0a
commit 6505503b49
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
liolib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: liolib.c,v 2.20 2002/10/11 20:40:32 roberto Exp roberto $ ** $Id: liolib.c,v 2.21 2002/10/16 20:41:35 roberto Exp roberto $
** Standard I/O (and system) library ** Standard I/O (and system) library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -100,8 +100,12 @@ static int aux_close (lua_State *L) {
FILE *f = tofile(L, 1); FILE *f = tofile(L, 1);
if (f == stdin || f == stdout || f == stderr) if (f == stdin || f == stdout || f == stderr)
return 0; /* file cannot be closed */ return 0; /* file cannot be closed */
else {
int ok = (pclose(f) != -1) || (fclose(f) == 0);
if (ok)
*(FILE **)lua_touserdata(L, 1) = NULL; /* mark file as closed */ *(FILE **)lua_touserdata(L, 1) = NULL; /* mark file as closed */
return (pclose(f) != -1) || (fclose(f) == 0); return ok;
}
} }