From: Bruno Haible <bruno@clisp.org>
Date: Mon, 2 Oct 2006 12:17:41 +0000 (+0000)
Subject: Remove unused code.
X-Git-Tag: 0.16.x-branchpoint~138
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=1c595aa03ea641e9ffefdc2da689fae2792638e1;p=thirdparty%2Fgettext.git

Remove unused code.
---

diff --git a/gettext-tools/src/ChangeLog b/gettext-tools/src/ChangeLog
index 58ab778d8..7b5afdae3 100644
--- 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 9ea03e919..ab7640ce3 100644
--- 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);