branch master updated: * tp/Texinfo/XS/main/get_perl_info.c (get_source_info): do not check the length of macro and file_name anymore, as the key should not be there if they are not set.

[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 11a1bf63ed * tp/Texinfo/XS/main/get_perl_info.c (get_source_info): do 
not check the length of macro and file_name anymore, as the key should not be 
there if they are not set.
11a1bf63ed is described below

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

    * tp/Texinfo/XS/main/get_perl_info.c (get_source_info): do not check
    the length of macro and file_name anymore, as the key should not be
    there if they are not set.
---
 ChangeLog                          | 6 ++++++
 tp/Texinfo/XS/main/get_perl_info.c | 6 ++----
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b8bf3c4324..0f110c7087 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2023-12-12  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/XS/main/get_perl_info.c (get_source_info): do not check
+       the length of macro and file_name anymore, as the key should not be
+       there if they are not set.
+
 2023-12-12  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/XS/main/tree_types.h (enum tree_added_elements_status):
diff --git a/tp/Texinfo/XS/main/get_perl_info.c 
b/tp/Texinfo/XS/main/get_perl_info.c
index 367cd036c8..246038ac3c 100644
--- a/tp/Texinfo/XS/main/get_perl_info.c
+++ b/tp/Texinfo/XS/main/get_perl_info.c
@@ -215,8 +215,7 @@ get_source_info (SV *source_info_sv)
   if (macro_sv)
     {
       char *macro = (char *) SvPVutf8_nolen (*macro_sv);
-      if (strlen (macro))
-        source_info->macro = strdup (macro);
+      source_info->macro = strdup (macro);
     }
 
   FETCH(file_name)
@@ -224,8 +223,7 @@ get_source_info (SV *source_info_sv)
   if (file_name_sv && SvOK (*file_name_sv))
     {
       char *file_name = (char *) SvPVbyte_nolen (*file_name_sv);
-      if (strlen (file_name))
-        source_info->file_name = strdup (file_name);
+      source_info->file_name = strdup (file_name);
     }
 
   FETCH(line_nr)