[8245] parsetexi save file directory

[gavinsmith0123]

Revision: 8245
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8245
Author:   gavin
Date:     2018-09-29 06:09:44 -0400 (Sat, 29 Sep 2018)
Log Message:
-----------
parsetexi save file directory

Modified Paths:
--------------
    trunk/tp/Texinfo/XS/parsetexi/Parsetexi.pm

Modified: trunk/tp/Texinfo/XS/parsetexi/Parsetexi.pm
===================================================================
--- trunk/tp/Texinfo/XS/parsetexi/Parsetexi.pm  2018-09-29 08:28:28 UTC (rev 
8244)
+++ trunk/tp/Texinfo/XS/parsetexi/Parsetexi.pm  2018-09-29 10:09:44 UTC (rev 
8245)
@@ -257,7 +257,6 @@
   my $file_name = shift;
   my $tree_stream;
 
-  $self->{'info'}->{'input_file_name'} = $file_name;
 
   parse_file ($file_name);
   my $TREE = build_texinfo_tree ();
@@ -307,12 +306,9 @@
     $self->{'info'}->{'input_encoding_name'} = $input_encoding;
   }
 
-  if (!$self->{'TEST'}) {
-    $self->{'info'}->{'input_file_name'} = $file_name;
-  } else {
-    my ($filename, $directories, $suffix) = fileparse($file_name);
-    $self->{'info'}->{'input_file_name'} = $filename;
-  }
+  my ($basename, $directories, $suffix) = fileparse($file_name);
+  $self->{'info'}->{'input_file_name'} = $basename;
+  $self->{'info'}->{'input_directory'} = $directories;
 
   return $TREE;
 }