commit d59c52753fd213f27021411a1e79c15fb4e3a979
author Roberto Ierusalimschy <roberto@inf.puc-rio.br> Mon Nov 18 11:48:44 1996 -0200
committer Roberto Ierusalimschy <roberto@inf.puc-rio.br> Mon Nov 18 11:48:44 1996 -0200
tree 25cd5176bb00016bfede160e37886b58ab832ade
parent 62e1a4c84d9075e27e5bcde20151f8545f9ab731

undump needs file in binary mode

opcode.c

diff --git a/opcode.c b/opcode.c
index 567f683..107024a 100644
--- a/opcode.c
+++ b/opcode.c
@@ -3,7 +3,7 @@
 ** TecCGraf - PUC-Rio
 */
 
-char *rcs_opcode="$Id: opcode.c,v 3.75 1996/09/24 17:30:28 roberto Exp roberto $";
+char *rcs_opcode="$Id: opcode.c,v 3.76 1996/09/24 21:46:44 roberto Exp roberto $";
 
 #include <setjmp.h>
 #include <stdio.h>
@@ -548,8 +548,10 @@
     return 2;
   c = fgetc(f);
   ungetc(c, f);
-  if (c == ID_CHUNK)
+  if (c == ID_CHUNK) {
+    f = freopen(filename, "rb", f);  /* set binary mode */
     status = luaI_undump(f);
+  }
   else {
     if (c == '#')
       while ((c=fgetc(f)) != '\n') /* skip first line */;