Rename a variable.

diff --git a/gettext-tools/src/ChangeLog b/gettext-tools/src/ChangeLog
index 327e7d12572eb5d99369eda021a4f80c67f03985..d57806da89151bfb1617edc68710cc5ab518f1ea 100644 (file)
--- a/gettext-tools/src/ChangeLog
+++ b/gettext-tools/src/ChangeLog
@@ -1,3 +1,8 @@
+2010-03-31  Guido Flohr  <guido@imperia.net>
+
+       * x-perl.c (eaten_here): Renamed from here_eaten.
+       (phase1_getc, get_here_document, skip_pod, extract_perl): Update.
+
 2010-03-13  Bruno Haible  <bruno@clisp.org>
 
        New options --color, --style for many programs.

diff --git a/gettext-tools/src/x-perl.c b/gettext-tools/src/x-perl.c
index b29aa2aa5660259240fea552de691a8cc0fa40ce..f5f9f675b1dc5c9bd6c7a11249845030a9310b43 100644 (file)
--- a/gettext-tools/src/x-perl.c
+++ b/gettext-tools/src/x-perl.c
@@ -199,7 +199,7 @@ static int linepos;
 static size_t linebuf_size;
 
 /* Number of lines eaten for here documents.  */
-static int here_eaten;
+static int eaten_here;
 
 /* Paranoia: EOF marker for __END__ or __DATA__.  */
 static bool end_of_file;
@@ -211,8 +211,8 @@ static bool end_of_file;
 static int
 phase1_getc ()
 {
-  line_number += here_eaten;
-  here_eaten = 0;
+  line_number += eaten_here;
+  eaten_here = 0;
 
   if (end_of_file)
     return EOF;
@@ -314,12 +314,12 @@ get_here_document (const char *delimiter)
             }
         }
 
-      ++here_eaten;
+      ++eaten_here;
 
       /* Convert to UTF-8.  */
       my_line_utf8 =
         from_current_source_encoding (my_linebuf, lc_string, logical_file_name,
-                                      line_number + here_eaten);
+                                      line_number + eaten_here);
       if (my_line_utf8 != my_linebuf)
         {
           if (strlen (my_line_utf8) >= my_linebuf_size)
@@ -381,8 +381,8 @@ get_here_document (const char *delimiter)
 static void
 skip_pod ()
 {
-  line_number += here_eaten;
-  here_eaten = 0;
+  line_number += eaten_here;
+  eaten_here = 0;
   linepos = 0;
 
   for (;;)
@@ -3426,7 +3426,7 @@ extract_perl (FILE *f, const char *real_filename, const char *logical_filename,
   token_stack.nitems_max = 0;
   linesize = 0;
   linepos = 0;
-  here_eaten = 0;
+  eaten_here = 0;
   end_of_file = false;
 
   /* Eat tokens until eof is seen.  When extract_balanced returns
@@ -3443,6 +3443,6 @@ extract_perl (FILE *f, const char *real_filename, const char *logical_filename,
   line_number = 0;
   last_token = token_type_semicolon;
   token_stack_free (&token_stack);
-  here_eaten = 0;
+  eaten_here = 0;
   end_of_file = true;
 }