[no subject]

[Patrice Dumas]

branch: master
commit 31c214610fbeea2b004ee5256273a060663fe46b
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Fri Nov 17 22:15:56 2023 +0100

    * tp/maintain/regenerate_C_options_info.pl: handle value set
    from perl being undef.
    
    * tp/Texinfo/XS/convert/get_html_perl_info.c
    (html_converter_initialize_sv): remove unused variable.
---
 ChangeLog                                  | 8 ++++++++
 tp/Texinfo/XS/convert/get_html_perl_info.c | 1 -
 tp/maintain/regenerate_C_options_info.pl   | 5 ++++-
 3 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f94df72552..aa59c14e24 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -15,6 +15,14 @@
        for varying numbers of times tdestroy_recurse appears in the stack
        trace.
 
+2023-11-17  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/maintain/regenerate_C_options_info.pl: handle value set
+       from perl being undef.
+
+       * tp/Texinfo/XS/convert/get_html_perl_info.c
+       (html_converter_initialize_sv): remove unused variable.
+
 2023-11-17  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/Convert/ConvertXS.pm: remove fallback module.
diff --git a/tp/Texinfo/XS/convert/get_html_perl_info.c 
b/tp/Texinfo/XS/convert/get_html_perl_info.c
index 8c9aaa3d72..91f82e1020 100644
--- a/tp/Texinfo/XS/convert/get_html_perl_info.c
+++ b/tp/Texinfo/XS/convert/get_html_perl_info.c
@@ -484,7 +484,6 @@ html_converter_initialize_sv (SV *converter_sv,
 
       for (i = 0; i < hv_number; i++)
         {
-          int j;
           I32 retlen;
           char *type_name;
           SV *pre_class_sv = hv_iternextsv (pre_class_types_hv,
diff --git a/tp/maintain/regenerate_C_options_info.pl 
b/tp/maintain/regenerate_C_options_info.pl
index 36552eeec6..dc189a4ba7 100755
--- a/tp/maintain/regenerate_C_options_info.pl
+++ b/tp/maintain/regenerate_C_options_info.pl
@@ -282,7 +282,10 @@ foreach my $category (sort(keys(%option_categories))) {
       }
       print GET "    {
       free (options->$option);
-      options->$option = strdup (SvPV${SV_function_type}_nolen (value));
+      if (SvOK (value))
+        options->$option = strdup (SvPV${SV_function_type}_nolen (value));
+      else
+        options->$option = 0;
     }\n";
     } elsif ($type eq 'int') {
       print GET "    options->$option = SvIV (value);\n";