From cd4ffcd8481c4bb695b69299b362652fedca8ccf Mon Sep 17 00:00:00 2001
From: psmith <psmith>
Date: Sat, 21 Feb 2004 17:10:41 +0000
Subject: [PATCH] VMS fix.

---
 ChangeLog |  6 ++++++
 job.c     | 30 ++++++------------------------
 2 files changed, 12 insertions(+), 24 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index d6c2e45..1533989 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2004-02-04  Paul D. Smith  <psmith@gnu.org>
+
+	* job.c (vms_handle_apos) [VMS]: Fix various string handling
+	situations in VMS DCL.  Fixes Savannah bug #5533.  Fix provided by
+	Hartmut Becker <Hartmut.Becker@hp.com>.
+
 2004-01-21  Paul D. Smith  <psmith@gnu.org>
 
 	* job.c (load_too_high): Implement an algorithm to control the
diff --git a/job.c b/job.c
index d3a8e6b..1529d29 100644
--- a/job.c
+++ b/job.c
@@ -370,44 +370,26 @@ static char *
 vms_handle_apos (char *p)
 {
   int alast;
-  int inside;
 
 #define SEPCHARS ",/()= "
 
-  inside = 0;
+  alast = 0;
 
   while (*p != 0)
     {
       if (*p == '"')
 	{
-	  if (inside)
-	    {
-	      while ((alast > 0)
-		    && (*p == '"'))
-		{
-		  p++;
-		  alast--;
-		}
-	      if (alast == 0)
-		inside = 0;
-	      else
-		{
-		  fprintf (stderr, _("Syntax error, still inside '\"'\n"));
-		  exit (3);
-		}
+          if (alast)
+            {
+              alast = 0;
+              p++;
 	    }
 	  else
 	    {
 	      p++;
 	      if (strchr (SEPCHARS, *p))
 		break;
-	      inside = 1;
 	      alast = 1;
-	      while (*p == '"')
-		{
-		  alast++;
-		  p++;
-		}
 	    }
 	}
       else
@@ -2232,7 +2214,7 @@ child_execute_job (char *argv, struct child *child)
 	      /* Nice places for line breaks are after strings, after
 		 comma or space and before slash. */
             case '"':
-              q = vms_handle_apos (q + 1);
+              q = vms_handle_apos (q);
               sep = q;
               break;
             case ',':
-- 
2.11.4.GIT