From: Bruno Haible <bruno@clisp.org>
Date: Mon, 7 Jul 2025 07:03:18 +0000 (+0200)
Subject: xgettext: Perl: Fix a memory leak (regression 2003-06-27).
X-Git-Tag: v0.26~17
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=80d0903beb21e9b175ba6c9cdde0a8d23cbe5a06;p=thirdparty%2Fgettext.git

xgettext: Perl: Fix a memory leak (regression 2003-06-27).

* gettext-tools/src/x-perl.c (phase2_getc): Free the result of
from_current_source_encoding.
---

diff --git a/gettext-tools/src/x-perl.c b/gettext-tools/src/x-perl.c
index 312fef371..f9a603d92 100644
--- a/gettext-tools/src/x-perl.c
+++ b/gettext-tools/src/x-perl.c
@@ -592,6 +592,8 @@ phase2_getc (struct perl_extractor *xp)
                                       logical_file_name, lineno);
       /* Save it until we encounter the corresponding string.  */
       savable_comment_add (utf8_contents);
+      if (utf8_contents != contents)
+        free (utf8_contents);
       sb_free (&buffer);
       xp->last_comment_line = lineno;
     }