Remove unused code.

diff --git a/gettext-tools/src/ChangeLog b/gettext-tools/src/ChangeLog
index 58ab778d819de2ffe8c0d0ba10038342ae80f399..7b5afdae387cbed5f25cd65e9a988b0201368d8d 100644 (file)
--- a/gettext-tools/src/ChangeLog
+++ b/gettext-tools/src/ChangeLog
@@ -1,5 +1,7 @@
 2006-10-01  Bruno Haible  <bruno@clisp.org>
 
+       * x-perl.c (extract_balanced): Remove unused variable prev_last_token.
+
        Fix Perl parsing bug introduced between 0.14.6 and 0.15.
        * x-perl.c (extract_balanced): Add eat_delim and comma_delim arguments.
        Use recursion to handle the case of a keyword not followed by an

diff --git a/gettext-tools/src/x-perl.c b/gettext-tools/src/x-perl.c
index 9ea03e91983945a9057a79ea466c3977b5d30fc5..ab7640ce323426e72d96add0904f380ed958fddf 100644 (file)
--- a/gettext-tools/src/x-perl.c
+++ b/gettext-tools/src/x-perl.c
@@ -2904,7 +2904,6 @@ extract_balanced (message_list_ty *mlp,
 
   for (;;)
     {
-      int my_last_token = last_token;
       /* The current token.  */
       token_ty *tp;
 
@@ -3083,14 +3082,6 @@ extract_balanced (message_list_ty *mlp,
                  free_token (tp);
                  return true;
                }
-             /* FIXME: Is this still needed?  */
-             if (my_last_token == token_type_keyword_symbol)
-               {
-                 xgettext_current_source_encoding = po_charset_utf8;
-                 arglist_parser_done (argparser, arg);
-                 xgettext_current_source_encoding = xgettext_global_source_encoding;
-                 argparser = arglist_parser_alloc (mlp, NULL);
-               }
              next_is_argument = false;
              if (next_argparser != NULL)
                free (next_argparser);