From fa8c44b510c6b56a290c14bd5dba4c7caec53284 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 29 Jan 2001 13:35:17 -0200
Subject: [PATCH] avoid the use of "reopen" (not that standard)

---
 ldo.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ldo.c b/ldo.c
index c17385e4..9fb42be7 100644
--- a/ldo.c
+++ b/ldo.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ldo.c,v 1.116 2001/01/24 15:45:33 roberto Exp roberto $
+** $Id: ldo.c,v 1.117 2001/01/26 11:45:51 roberto Exp roberto $
 ** Stack and Call structure of Lua
 ** See Copyright Notice in lua.h
 */
@@ -277,7 +277,8 @@ static int parse_file (lua_State *L, const char *filename) {
   ungetc(c, f);
   bin = (c == ID_CHUNK);
   if (bin && f != stdin) {
-    f = freopen(filename, "rb", f);  /* set binary mode */
+    fclose(f);
+    f = fopen(filename, "rb");  /* reopen in binary mode */
     if (f == NULL) return LUA_ERRFILE;  /* unable to reopen file */
   }
   lua_pushliteral(L, "@");