Break out of an infinite loop if we're not making progress.

1 files changed, 4 insertions, 0 deletions

diff --git a/read.c b/read.c
index 7f6939e2..8478c8d7 100644
--- a/read.c
+++ b/read.c
@@ -3087,6 +3087,7 @@ parse_file_seq (char **stringp, unsigned int size, int stopchar,
               const char *e = p;
               do
                 {
+                  const char *o = e;
                   e = next_token (e);
                   /* Find the end of this word.  We don't want to unquote and
                      we don't care about quoting since we're looking for the
@@ -3094,6 +3095,9 @@ parse_file_seq (char **stringp, unsigned int size, int stopchar,
                   while (*e != '\0' && *e != stopchar && *e != VMS_COMMA
                          && ! isblank ((unsigned char) *e))
                     ++e;
+                  /* If we didn't move, we're done now.  */
+                  if (e == o)
+                    break;
                   if (e[-1] == ')')
                     {
                       /* Found the end, so this is the first element in an