From 6505503b49c90c069db6ed8ea28b7d1a8c922678 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 21 Oct 2002 17:41:24 -0300
Subject: [PATCH] do not pretend that file is closed when close fails

---
 liolib.c | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/liolib.c b/liolib.c
index c3981247..6614ea1c 100644
--- a/liolib.c
+++ b/liolib.c
@@ -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
 ** See Copyright Notice in lua.h
 */
@@ -100,8 +100,12 @@ static int aux_close (lua_State *L) {
   FILE *f = tofile(L, 1);
   if (f == stdin || f == stdout || f == stderr)
     return 0;  /* file cannot be closed */
-  *(FILE **)lua_touserdata(L, 1) = NULL;  /* mark file as closed */
-  return (pclose(f) != -1) || (fclose(f) == 0);
+  else {
+    int ok = (pclose(f) != -1) || (fclose(f) == 0);
+    if (ok)
+      *(FILE **)lua_touserdata(L, 1) = NULL;  /* mark file as closed */
+    return ok;
+  }
 }