Fix a bug in the Perl extractor.

diff --git a/gettext-tools/src/ChangeLog b/gettext-tools/src/ChangeLog
index d67bdbe36cda9e606da073acf158b9d54ec92453..678a8615706ccf79c146969d08285e3944ac912f 100644 (file)
--- a/gettext-tools/src/ChangeLog
+++ b/gettext-tools/src/ChangeLog
@@ -1,3 +1,8 @@
+2009-11-28  Bruno Haible  <bruno@clisp.org>
+
+       * x-perl.c (extract_variable): Fix tp->type when returning at EOF.
+       Reported by Guido Flohr <guido@imperia.bg>.
+
 2009-11-15  Bruno Haible  <bruno@clisp.org>
 
        * x-python.c: Update comments regarding PEP 0263.

diff --git a/gettext-tools/src/x-perl.c b/gettext-tools/src/x-perl.c
index 221108dc999525adde15a526a6393caaa371a0d3..1830a108c941f14f1a5aa018234e5011449e2fd1 100644 (file)
--- a/gettext-tools/src/x-perl.c
+++ b/gettext-tools/src/x-perl.c
@@ -1381,7 +1381,10 @@ extract_variable (message_list_ty *mlp, token_ty *tp, int first)
       if (extract_balanced (mlp, token_type_rbrace, true, false,
                            null_context, null_context_list_iterator,
                            1, arglist_parser_alloc (mlp, NULL)))
-       return;
+       {
+         tp->type = token_type_eof;
+         return;
+       }
       buffer[bufpos++] = c;
     }
   else