branch master updated: * tp/Texinfo/XS/main/get_perl_info.c (get_source_info): use SvPVbyte for file_name.

[Patrice Dumas]

This is an automated email from the git hooks/post-receive script.

pertusus pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new f7a2bf9cd2 * tp/Texinfo/XS/main/get_perl_info.c (get_source_info): use 
SvPVbyte for file_name.
f7a2bf9cd2 is described below

commit f7a2bf9cd2c4a3f089c45474631c66cfca0b5bce
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Tue Dec 12 15:24:11 2023 +0100

    * tp/Texinfo/XS/main/get_perl_info.c (get_source_info): use SvPVbyte
    for file_name.
---
 ChangeLog                          | 5 +++++
 tp/Texinfo/XS/main/get_perl_info.c | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index c64be47285..2d66e64bda 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2023-12-12  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/XS/main/get_perl_info.c (get_source_info): use SvPVbyte
+       for file_name.
+
 2023-12-12  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/Convert/Converter.pm (converter_line_error)
diff --git a/tp/Texinfo/XS/main/get_perl_info.c 
b/tp/Texinfo/XS/main/get_perl_info.c
index e999e2d1f3..367cd036c8 100644
--- a/tp/Texinfo/XS/main/get_perl_info.c
+++ b/tp/Texinfo/XS/main/get_perl_info.c
@@ -223,7 +223,7 @@ get_source_info (SV *source_info_sv)
 
   if (file_name_sv && SvOK (*file_name_sv))
     {
-      char *file_name = (char *) SvPVutf8_nolen (*file_name_sv);
+      char *file_name = (char *) SvPVbyte_nolen (*file_name_sv);
       if (strlen (file_name))
         source_info->file_name = strdup (file_name);
     }