psql paren. with \r fix.

diff --git a/src/bin/psql/psql.c b/src/bin/psql/psql.c
index a32d2c69ee54be931f55fc62785514b4bfc16dac..1e3c1a7fb230a4bb3fec9876f893b06a5281936c 100644 (file)
--- a/src/bin/psql/psql.c
+++ b/src/bin/psql/psql.c
@@ -7,7 +7,7 @@
  *
  *
  * IDENTIFICATION
- *    $Header: /cvsroot/pgsql/src/bin/psql/Attic/psql.c,v 1.43 1996/12/28 02:12:31 momjian Exp $
+ *    $Header: /cvsroot/pgsql/src/bin/psql/Attic/psql.c,v 1.44 1997/01/02 06:45:25 momjian Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -1263,6 +1263,7 @@ MainLoop(PsqlSettings * settings, FILE * source)
     /* main loop for getting queries and executing them */
     while (!eof) {
        if (slashCmdStatus == 3) {
+           paren_level = 0;
            line = strdup(query);
            query[0] = '\0';
        } else {
@@ -1376,8 +1377,12 @@ MainLoop(PsqlSettings * settings, FILE * source)
                                                 query_start,
                                                 query);
                if (slashCmdStatus == 1) {
-                   free(line);
-                   continue;
+                   if (query[0] == '\0')
+                   {
+                       paren_level = 0;
+                       free(line);
+                       continue;
+                   }
                }
                if (slashCmdStatus == 2) {
                    free(line);