From 0ec4c473df871ce88d3c06f7a801c557cb7f9d86 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 7 Jul 2003 10:32:52 -0300
Subject: bug: file:close cannot be called without a file.

---
 liolib.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'liolib.c')

diff --git a/liolib.c b/liolib.c
index 4e9ddb7e..a817fad2 100644
--- a/liolib.c
+++ b/liolib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: liolib.c,v 2.42 2003/05/14 19:03:43 roberto Exp roberto $
+** $Id: liolib.c,v 2.43 2003/05/14 21:01:53 roberto Exp roberto $
 ** Standard I/O (and system) library
 ** See Copyright Notice in lua.h
 */
@@ -137,7 +137,7 @@ static int aux_close (lua_State *L) {
 
 
 static int io_close (lua_State *L) {
-  if (lua_isnone(L, 1))
+  if (lua_isnone(L, 1) && lua_type(L, lua_upvalueindex(1)) == LUA_TTABLE)
     lua_rawgeti(L, lua_upvalueindex(1), IO_OUTPUT);
   return pushresult(L, aux_close(L), NULL);
 }
-- 
cgit v1.2.3-55-g6feb