branch master updated: * tp/Texinfo/Convert/Converter.pm (initialize_tree_units_files) (_normalize_filename_case): set $self->{'filenames'} independently of CASE_INSENSITIVE_FILENAMES being 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 d5c8fa4c9e * tp/Texinfo/Convert/Converter.pm 
(initialize_tree_units_files) (_normalize_filename_case): set 
$self->{'filenames'} independently of CASE_INSENSITIVE_FILENAMES being set.
d5c8fa4c9e is described below

commit d5c8fa4c9edb5841b9ebe2d01019036749b796dc
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Mon Jan 9 11:17:52 2023 +0100

    * tp/Texinfo/Convert/Converter.pm (initialize_tree_units_files)
    (_normalize_filename_case): set $self->{'filenames'} independently
    of CASE_INSENSITIVE_FILENAMES being set.
---
 ChangeLog                       |  6 ++++++
 tp/Texinfo/Convert/Converter.pm | 18 ++++++++++++------
 2 files changed, 18 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bd67f94de5..ea402e5cda 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2023-01-09  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/Convert/Converter.pm (initialize_tree_units_files)
+       (_normalize_filename_case): set $self->{'filenames'} independently
+       of CASE_INSENSITIVE_FILENAMES being set.
+
 2023-01-08  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/ParserNonXS.pm (_parse_texi),
diff --git a/tp/Texinfo/Convert/Converter.pm b/tp/Texinfo/Convert/Converter.pm
index 5fd8be3328..1ceb29aa79 100644
--- a/tp/Texinfo/Convert/Converter.pm
+++ b/tp/Texinfo/Convert/Converter.pm
@@ -752,10 +752,7 @@ sub initialize_tree_units_files($)
 
   $self->{'out_filepaths'} = {};
   $self->{'file_counters'} = {};
-
-  if ($self->get_conf('CASE_INSENSITIVE_FILENAMES')) {
-    $self->{'filenames'} = {};
-  }
+  $self->{'filenames'} = {};
 }
 
 # If CASE_INSENSITIVE_FILENAMES is set, reuse the first
@@ -768,13 +765,22 @@ sub _normalize_filename_case($$)
   if ($self->get_conf('CASE_INSENSITIVE_FILENAMES')) {
     if (exists($self->{'filenames'}->{lc($filename)})) {
       if ($self->get_conf('DEBUG')) {
-        print STDERR "Reusing ".$self->{'filenames'}->{lc($filename)}
-                     ." for $filename\n";
+        print STDERR "Reusing case-insensitive ".
+                   $self->{'filenames'}->{lc($filename)}." for $filename\n";
       }
       $filename = $self->{'filenames'}->{lc($filename)};
     } else {
       $self->{'filenames'}->{lc($filename)} = $filename;
     }
+  } else {
+    if (exists($self->{'filenames'}->{$filename})) {
+      if ($self->get_conf('DEBUG')) {
+        print STDERR "Reusing ".$self->{'filenames'}->{$filename}
+                     ." for $filename\n";
+      }
+    } else {
+      $self->{'filenames'}->{$filename} = $filename;
+    }
   }
   return $filename;
 }