From 80d0903beb21e9b175ba6c9cdde0a8d23cbe5a06 Mon Sep 17 00:00:00 2001
From: Bruno Haible <bruno@clisp.org>
Date: Mon, 7 Jul 2025 09:03:18 +0200
Subject: [PATCH] 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.
---
 gettext-tools/src/x-perl.c | 2 ++
 1 file changed, 2 insertions(+)

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;
     }
-- 
2.47.3