diff options
Diffstat (limited to 'gettext-tools/src/x-perl.c')
| -rw-r--r-- | gettext-tools/src/x-perl.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gettext-tools/src/x-perl.c b/gettext-tools/src/x-perl.c index 221108d..1830a10 100644 --- 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 |