branch master updated: * tp/Texinfo/XS/main/build_perl_info.c (build_output_files_opened_files): update for the change in Perl code by building a hash reference.

[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 e5f768a374 * tp/Texinfo/XS/main/build_perl_info.c 
(build_output_files_opened_files): update for the change in Perl code by 
building a hash reference.
e5f768a374 is described below

commit e5f768a374e8ba498c0c5bc77dcacf251da795b9
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sat Apr 13 23:57:57 2024 +0200

    * tp/Texinfo/XS/main/build_perl_info.c
    (build_output_files_opened_files): update for the change in Perl
    code by building a hash reference.
---
 ChangeLog                            |  6 ++++++
 tp/Texinfo/XS/main/build_perl_info.c | 10 +++++-----
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 7df84e294a..4e777b7a87 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2024-04-13  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/XS/main/build_perl_info.c
+       (build_output_files_opened_files): update for the change in Perl
+       code by building a hash reference.
+
 2024-04-13  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/XS/structuring_transfo/transformations.c
diff --git a/tp/Texinfo/XS/main/build_perl_info.c 
b/tp/Texinfo/XS/main/build_perl_info.c
index a8e79472d5..55714bf1f3 100644
--- a/tp/Texinfo/XS/main/build_perl_info.c
+++ b/tp/Texinfo/XS/main/build_perl_info.c
@@ -2230,7 +2230,7 @@ build_output_files_opened_files (HV *hv,
                     OUTPUT_FILES_INFORMATION *output_files_information)
 {
   SV **opened_files_sv;
-  AV *opened_files_av;
+  HV *opened_files_hv;
 
   STRING_LIST *opened_files;
   int i;
@@ -2241,13 +2241,13 @@ build_output_files_opened_files (HV *hv,
 
   if (!opened_files_sv)
     {
-      opened_files_av = newAV ();
+      opened_files_hv = newHV ();
       hv_store (hv, "opened_files", strlen ("opened_files"),
-                newRV_noinc ((SV *) opened_files_av), 0);
+                newRV_noinc ((SV *) opened_files_hv), 0);
     }
   else
     {
-      opened_files_av = (AV *)SvRV (*opened_files_sv);
+      opened_files_hv = (HV *)SvRV (*opened_files_sv);
     }
 
   opened_files = &output_files_information->opened_files;
@@ -2257,7 +2257,7 @@ build_output_files_opened_files (HV *hv,
         {
           char *file_path = opened_files->list[i];
           SV *file_path_sv = newSVpv_byte (file_path, 0);
-          av_push (opened_files_av, file_path_sv);
+          hv_store_ent (opened_files_hv, file_path_sv, newSViv (1), 0);
         }
     }
 }