[no subject]

[Patrice Dumas]

branch: master
commit fdc3f944f0310a0ab17ee6c6de9d194bb21af2db
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Tue May 28 11:34:09 2024 +0200

    * tp/Texinfo/XS/parsetexi/Parsetexi.pm (parse_texi_file): remove the
    now useless call to fileparse.
---
 ChangeLog                            | 5 +++++
 tp/Texinfo/XS/parsetexi/Parsetexi.pm | 2 --
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 21aff83bec..fd711f0eb9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-05-28  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/XS/parsetexi/Parsetexi.pm (parse_texi_file): remove the
+       now useless call to fileparse.
+
 2024-05-27  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/XS/parsetexi/parser.c (process_remaining_on_line):
diff --git a/tp/Texinfo/XS/parsetexi/Parsetexi.pm 
b/tp/Texinfo/XS/parsetexi/Parsetexi.pm
index 641ae98633..a6a5809a79 100644
--- a/tp/Texinfo/XS/parsetexi/Parsetexi.pm
+++ b/tp/Texinfo/XS/parsetexi/Parsetexi.pm
@@ -42,7 +42,6 @@ use warnings;
 
 use Storable qw(dclone); # standard in 5.007003
 use Encode qw(decode);
-use File::Basename; # for fileparse
 
 use Texinfo::Common;
 use Texinfo::Report;
@@ -216,7 +215,6 @@ sub parse_texi_file ($$)
   # the file is already a byte string, taken as is from the command
   # line.  The encoding was detected as COMMAND_LINE_ENCODING, but
   # it is not useful for the XS parser.
-  my ($input_file_name, $directories, $suffix) = fileparse($input_file_path);
   my $document_descriptor = parse_file($self, $input_file_path);
   if (!$document_descriptor) {
     my $parser_registrar = $self->{'registrar'};