xgettext: Fix bug with syntax-checks on messages from Perl source code.

* gettext-tools/src/x-perl.c (extract_perl): Don't free logical_file_name,
because it is referenced by the 'pos' field of the returned messages, and
xg-check.c accesses and prints it.

diff --git a/gettext-tools/src/x-perl.c b/gettext-tools/src/x-perl.c
index fb254d9f8e2f1ebcb9375028cd9a2b9d256beece..d3aa5047660c36d37633afc68950e319c3891fe7 100644 (file)
--- a/gettext-tools/src/x-perl.c
+++ b/gettext-tools/src/x-perl.c
@@ -3885,6 +3885,5 @@ extract_perl (FILE *f, const char *real_filename, const char *logical_filename,
   token_stack_free (&xp->token_stack);
   free (xp);
   real_file_name = NULL;
-  free (logical_file_name);
   logical_file_name = NULL;
 }