put back quotes (") when string in dostring ends with a \n

1 files changed, 5 insertions, 2 deletions

diff --git a/ldo.c b/ldo.c
index 08312511..4cde29c1 100644
--- a/ldo.c
+++ b/ldo.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ldo.c,v 1.22 1998/01/27 21:21:27 roberto Exp roberto $
+** $Id: ldo.c,v 1.23 1998/01/28 17:47:05 roberto Exp roberto $
 ** Stack and Call structure of Lua
 ** See Copyright Notice in lua.h
 */
@@ -401,7 +401,10 @@ int lua_dostring (char *str)
   if (str == NULL) return 1;
   sprintf(name, "(dostring) >> \"%." SSIZE_PREF "s\"", str);
   temp = strchr(name, '\n');
-  if (temp) *temp = 0;  /* end string after first line */
+  if (temp) {  /* end string after first line */
+   *temp = '"';
+   *(temp+1) = 0;
+  }
   luaZ_sopen(&z, str, name);
   status = do_main(&z, 0);
   return status;