Fix endless loop when Tcl file contains a tab.

diff --git a/gettext-tools/src/ChangeLog b/gettext-tools/src/ChangeLog
index 4cf94b9e71041838e67adc3dd0d9909eb6513c51..e846dc4007654824a252de57b3d379422db1256d 100644 (file)
--- a/gettext-tools/src/ChangeLog
+++ b/gettext-tools/src/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-06  Bruno Haible  <bruno@clisp.org>
+
+       * x-tcl.c (read_word): Ignore non-space whitespace at the beginning.
+       Reported by William J Poser <wjposer@ldc.upenn.edu>.
+
 2005-01-06  Bruno Haible  <bruno@clisp.org>
 
        * write-csharp.c (msgdomain_write_csharp): Don't call fclose after

diff --git a/gettext-tools/src/x-tcl.c b/gettext-tools/src/x-tcl.c
index 75871b406270a63b400b814203b3caf62b66ff42..b895a63be49d6f687b524222fab750d842bb5aae 100644 (file)
--- a/gettext-tools/src/x-tcl.c
+++ b/gettext-tools/src/x-tcl.c
@@ -1,5 +1,5 @@
 /* xgettext Tcl backend.
-   Copyright (C) 2002-2003 Free Software Foundation, Inc.
+   Copyright (C) 2002-2003, 2005 Free Software Foundation, Inc.
 
    This file was written by Bruno Haible <haible@clisp.cons.org>, 2002.
 
@@ -719,7 +719,8 @@ read_word (struct word *wp, int looking_for, flag_context_ty context)
 
   do
     c = phase2_getc ();
-  while (c == ' ' || c == BS_NL);
+  while (c == ' ' || c == BS_NL
+        || c == '\t' || c == '\v' || c == '\f' || c == '\r');
 
   if (c == EOF)
     {