xgettext: Perl: Fix a bug when reading here documents in a non-UTF-8 encoding.

* gettext-tools/src/xgettext.c (get_here_document): Update read_bytes when
switching from the original encoding to the UTF-8 encoding.

diff --git a/gettext-tools/src/x-perl.c b/gettext-tools/src/x-perl.c
index 68dc3a3b17cfab3bcfb59231bb39217504b91c37..178b54b628c054ce82d25755715d344c714f3464 100644 (file)
--- a/gettext-tools/src/x-perl.c
+++ b/gettext-tools/src/x-perl.c
@@ -480,6 +480,7 @@ get_here_document (struct perl_extractor *xp, const char *delimiter)
               my_linebuf = xrealloc (my_linebuf, my_linebuf_size);
             }
           strcpy (my_linebuf, my_line_utf8);
+          read_bytes = strlen (my_line_utf8);
           free (my_line_utf8);
         }