branch master updated: * tp/Texinfo/XS/convert/get_html_perl_info.c (html_converter_prepare_output_sv): fix the index in AV of the jslicense file info data.

[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 bb7ff712f5 * tp/Texinfo/XS/convert/get_html_perl_info.c 
(html_converter_prepare_output_sv): fix the index in AV of the jslicense file 
info data.
bb7ff712f5 is described below

commit bb7ff712f5a22be49aa98aa6430107998dedea20
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sun Jul 7 00:25:32 2024 +0200

    * tp/Texinfo/XS/convert/get_html_perl_info.c
    (html_converter_prepare_output_sv): fix the index in AV of the
    jslicense file info data.
---
 ChangeLog                                  | 6 ++++++
 tp/Texinfo/XS/convert/get_html_perl_info.c | 4 ++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 3b2e34299a..4d5bac5331 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2024-07-06  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/XS/convert/get_html_perl_info.c
+       (html_converter_prepare_output_sv): fix the index in AV of the
+       jslicense file info data.
+
 2024-07-06  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/XS/convert/call_html_perl_function.c
diff --git a/tp/Texinfo/XS/convert/get_html_perl_info.c 
b/tp/Texinfo/XS/convert/get_html_perl_info.c
index 3bc30ccfa0..c8474e32bb 100644
--- a/tp/Texinfo/XS/convert/get_html_perl_info.c
+++ b/tp/Texinfo/XS/convert/get_html_perl_info.c
@@ -1329,13 +1329,13 @@ html_converter_prepare_output_sv (SV *converter_sv, 
CONVERTER *converter)
                           jslicense_file_info->license
                             = non_perl_strdup (license);
                         }
-                      url_sv = av_fetch (file_info_av, 0, 0);
+                      url_sv = av_fetch (file_info_av, 1, 0);
                       if (url_sv && SvOK (*url_sv))
                         {
                           const char *url = (char *) SvPVutf8_nolen (*url_sv);
                           jslicense_file_info->url = non_perl_strdup (url);
                         }
-                      source_sv = av_fetch (file_info_av, 0, 0);
+                      source_sv = av_fetch (file_info_av, 2, 0);
                       if (source_sv && SvOK (*source_sv))
                         {
                           const char *source