From: Bruno Haible <bruno@clisp.org>
Date: Thu, 3 Jul 2025 10:50:15 +0000 (+0200)
Subject: xgettext: Fix bug with syntax-checks on messages from Perl source code.
X-Git-Tag: v0.26~30
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=62e3b84b92e5c5c213046ce5b66079a074d368ce;p=thirdparty%2Fgettext.git

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 fb254d9f8..d3aa50476 100644
--- 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;
 }