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 312fef3717f97fee42ed08121913a6c3392b0646..f9a603d92e2434534aa31578b2ec85798e429347 100644 (file)
--- 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;
     }